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PRÉFACE 


L'objectif de cet ouvrage se situe à deux niveaux : 

— acquérir la maîtrise d’une méthode de programmation adaptée au langage informatique, 
— particulariser cette méthode par l'introduction de fonctions graphiques propres au dessin de 
construction. 

Après l’étude des instructions élémentaires de tracé, l’utilisateur de ce manuel parvient, 
progressivement, aux figures géométriques plus complexes, ce qui lui permet de créer des schémas, 
des perspectives, des dessins de définition et des schémas dynamiques. 

Cet ouvrage permet, aux professeurs de dessin de construction notamment, l'élaboration de 
progiciels, auxiliaires modernes de leur pédagogie. Aux élèves des enseignements technologiques 
et professionnels, il apporte une réponse aux problèmes de programmation dans le domaine de la 
construction. 


AVERTISSEMENT 


Le BASIC, langage de programmation universel, peut être utilisé quel que soit le matériel. 
Quelques modifications doivent, cependant, être opérées au niveau des fonctions de commande et 
d’exécution. Leurs correspondances, indiquées à la fin du chapitre 1, Généralités, paragraphe 3, 
correspondance des fonctions BASIC utilisées dans cet ouvrage, permettent d'adapter les 
programmes au matériel. 

Les dessins réalisés sur table traçante et les «listings» sont écrits au moyen d’un clavier 
QWERTY dépourvu d’accentuation. 
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Présentation 
du matériel 


Le matériel utilisé dans cet ouvrage regroupe : 


— le micro-ordinateur OLIVETTI M20, 
— le traceur HEWLETT PACKARD HP 
7475A, 


— l'imprimante copie d'écran OLIVETTI 
PR16. 


Nous proposons, au lecteur, une description 
sommaire de ce matériel dans les pages 
suivantes. 


Le micro-ordinateur OLIVETTI M20 est un 
système autonome conçu pour l'usage profes- 
sionnel en tant qu'outil de résolution. Il est utilisé 
pour traiter des problèmes scientifiques, bureau- 
tiques et graphiques. 

Connecté à des périphériques, il constitue un 
outil efficace de transmission de données. 

Le noyau du M20 est un micoprocesseur Z8001 
de 16 bits qui travaille avec un langage BASIC 
évolué. 

La facilité d'utilisation est assurée par l'écran 
d'affichage alphanumérique et graphique, ver- 
sion monochrome ou version couleur. 

Les informations, traitées en mémoire centrale, 
sont ensuite stockées sur des disques souples de 
5 pouces 1/4 faciles d'emploi et assurant une 
grande rapidité de transfert de celles-ci. 


Quelques caractéristiques du M20 


— Capacité de la mémoire centrale: 128 Ko 
— Capacité de mémoire utilisable : 58 Ko 
— Capacité de stockage sur disquette: 320 Ko 
Deux lecteurs de disquettes. 
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2. LE TRACEUR HEWLETT PACKARD 7475 A 


Le traceur HEWLETT PACKARD 7476 A est un 
périphérique connecté par l'intermédiaire de 
l'interface HPIEEE 488 ou de l'interface 
RS 232C. 

Le traceur est un calculateur équipé d'un 
microprocesseur Z80 qui mémorise les instruc- 
tions du micro-ordinateur, les traite et les restitue 
sous forme graphique. 

Les tracés peuvent être réalisés sur les formats 
normalisés A3 et A4. Ün commutateur placé à 
l'arrière de la machine permet le passage d'un 
format à l'autre. 

Une instruction de commande placée dans le 
programme permet de choisir uñe couleur de 
tracé parmi six plumes contenues dans le barillet. 


L'imprimante graphique OLIVETTI PR 15 per- 
met d'établir le listing des programmes situés en 
mémoire centrale et la reproduction d'un tracé 
graphique obtenu à l'écran. 


Utilisation du 
clavier 


Clavier USA ASCII-OWERTY 
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Figure 1.1 
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— Le clavier permet l'introduction de tous les 
caractères standard de texte et de contrôle. 
Tous les caractères montrés dans ce manuel se 
réfèrent au clavier ASCII. Quand nous voudrons 
spécifier les touches que l'utilisateur doit 
enfoncer pour exécuter une opération, nous 
indiquerons la séquence exacte des touches à 
l'intérieur d'un cadre. 


Exemple : 
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Figure 1.2 


Par convention nous utiliserons les lettres 


pour indiquer l’une des touches de retour 
chariot, d'interligne ou de validation de ligne : 


Le mot 


d'espacement. 


Le mot |SHIFT| indiquera l'une des deux 


touches SHIFT. 


indiquera la barre 


1. INTRODUCTION DES CARACTERES 


A la mise sous tension, les caractères introduits sont minuscules. Le curseur clignotant [| indique la 


position que va occuper le caractère suivant : 


SHIFT 
COMMAND 


pi 
SPACE 


Touche d'espacement. 


La touche | SHIFT | maintenue enfoncée permet d'obtenir soit des caractères 
majuscules, soit le symbole du haut des touches présentant deux symboles. 


Bloque le clavier des lettres A-Z en position majuscule. Pour ramener en 
position minuscule appuyer à nouveau sur ces touches. 
Envoie une ligne au système, où une commande PCOS ou des données. 


2. CARACTERES DE CONTROLE 


CAT ou 


CTRL 


Permet l'introduction des caractères de contrôle ci-après. 
Interrompt l'exécution d'un programme. 


Le curseur change de forme et de vitesse de clignotement. L'affichage des 


caractères à l'écran est supprimé. En appuyant à nouveau sur ces touches ou 
sur |CR |. on revient à l'affichage normal. 
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Le curseur est déplacé d'une position vers la gauche. 


Le dernier caractère composé est effacé. 


Suspend la visualisation à l'écran. 


En appuyant sur n'importe quelle touche: on retrouve la visualisation. 


On sort de l'état d'insertion tout en restant dans le mode édition. 


La mémoire est remise à zéro. 


Le PCOS est rechargé à partir du disque. 


3 CORRECTION DES ERREURS DE FRAPPE 


Efface le ou les derniers caractères avant d'avoir terminé une ligne (c'est-à- 


dire avant d'avoir appuyé sur qui valide et envoie la ligne). 


Efface toute la ligne (avant validation). 


Si la ligne de programme est validée et si les corrections sont importantes, 
introduire la ligne correctement en reprenant le même numéro de ligne. La 
nouvelle ligne remplacera l'ancienne. 


Modes de 
fonctionnement 


Le BASIC comporte trois modes de fonctionnement : 
Mode commande : Pour introduire les programmes et les lignes immédiates: 


Mode exécution 
Mode édition 


1. MODE COMMANDE 


Lorsque l'ordinateur est en mode commande, il 
affiche un appel spécial : OK. 
Le BASIC n'accepte votre entrée que lorsque 


vous terminez la ligne en appuyant sur [CR]. 
Le BASIC ignore toujours les espaces de début 
dans une ligne. || saute au premier caractère qui 
n'est pas un espace. Si ce caractère n'est pas un 
chiffre le BASIC traite la ligne comme une ligne 
immédiate. Si c'est un chiffre, la ligne est traitée 
comme une ligne de programme. 
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: Pour exécuter les programmes et les lignes immédiates; 
: Pour éditer les lignes du programme. 


Exemple : 199 PRINT «le sinus de 1,5 radian 
est»; SIN (1.5). 
C'est une ligne de programme qui est mémorisée 


quand on appuye sur| CR |. Pour l'exécuteril faut 


introduire [RUN ][CR |. 


Par contre, la ligne ci-dessous est une ligne 
immédiate qui est exécutée dès que l'on appuie 


sur [CR |. 


PRINT «le sinus de 1.5 radian est»: SIN (1.5). 


Quand on introduit une séquence de lignes de 
programme, elles sont mémorisées dans l'ordre 
indiqué par leur-numéro (quel que soit l’ordre 
dans lequel elles ont été introduites) et le 
programme n'est exécuté que lorsqu'on intro- 


duit (RUNJ[CA] 


2. MODE EXECUTION 
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Le mode commande comprend les sous-modes 
suivants : 


— immédiat où direct, quand on introduit 
une ligne immédiate 


— programme, quand on introduit une 
ligne de programme. 


Un programme en BASIC est exécuté dans l'ordre des numéros de ligne sauf si une instruction de 
contrôle (GOTO, IF … THEN … ELSE, FOR … NEXT, WHILE .. WEND) ne dicte autre chose. 


3. MODE EDITION 


Le BASIC comprend un éditeur de ligne pour la correction des lignes de programme. 


OGPAEIQITE 


Le BASIC affiche la ligne 140. 


Le BASIC affiche la ligne courante, c'est-à-dire 
la dernière ligne introduite ou éditée. 


On peut alors effacer, insérer, remplacer des caractères au moyen des sous-commandes du mode 


édition. 


Langage BASIC 


Le BASIC (Beginner's All purpose Symbolic 
Instruction Code) est un langage de program- 
mation universel que l'on peut utiliser pour 
résoudre à la fois les problèmes commerciaux et 
les problèmes scientifiques et techniques. 


Le BASIC est relativement facile à apprendre et à 
utiliser car il est formé d'instructions et de 
commandes qui s'expliquent d'elles-mêmes. 
Différentes versions de BASIC sont disponibles 
sur différents ordinateurs. 


1. ENVIRONNEMENTS BASIC ET PCOS 


Le système M20 comporte un ordinateur et un 
ensemble de programmes fournis par OLIVETTI. 
Les «programmes du système» sont résidants 
sur un mini-disque souple : c'est le disque 
système. 

Les programmes du système, qui comprennent 
le BASIC et le PCOS (Professionnal Computer 
Operating System) permettent de donner des 


instructions à l'ordinateur en un langage 
similaire au langage humain. Ils fonctionnent en 
convertissant les instructions données en un 
langage machine compris par l'ordinateur. Il y a 
une inter-action avec l'ordinateur en utilisant les 
commandes PCOS et BASIC et les instructions 
BASIC. 
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Fonctions 
utilisées 
1. INSTRUCTIONS BASIC 


Ce sont les ordres que l'on fournit à l'interpréteur BASIC. 


B 

BF 
CALL 
CIRCLE 
CLS 
COLOR 
CURSOR 
DATA 
DEFFN 
DIM 
END 


FOR … TO … 
NEXT 


GOSUB 


GOTO 
IF THEN 
ELSE 


INPUT 


LINE 

L PRINT 
NEXT 
TAN 


Dessine un rectangle à partir des coordonnées des points extrêmes. 

Dessine un rectangle plein. 

Appelle une commande PCOS. 

Instruction de tracé du cercle. 

Efface entièrement l'écran. 

Sélectionne les couleurs du fond et celles des caractères où graphiques. 
Positionne le curseur texte ou le curseur graphique (cursor point). 

Liste de données numériques ou chaînes de caractères. 

Définit une fonction numérique ou de chaîne. 

Dimensionne un tableau. 

Indique la fin d'un programme. 

Exemple : FORT =1TO 19 NEXTT: 

Les instructions situées entre FOR et NEXT T doivent être exécutées dix fois de suite. 
Le pas de variation de la variable T peut être différent de 1. 

Exemple : GOSUB 500. 

Envoie le programme à la ligne 599, première ligne d'un sous-programme. La 
dernière instruction de ce sous-programme est alors RETURN et elle fait reprendre 
l'exécution du programme à la ligne qui suit l'instruction GOSUB. 

Transfère le contrôle à une ligne du programme. 

Si la condition qui suit IF est réalisée alors l'instruction qui suit THEN est exécutée. 
Sinon le programme saute ce qui suit THEN et poursuit à la ligne suivante. 
Exemple : INPUT A | 
Affiche un point d'interrogation à l'écran et attend une réponse numérique qui sera 
affectée à la variable A. 

Trace le trait qui joint deux points pour lesquels on précise les coordonnées. 
Liste le programme sur l'imprimante. 

Voir l'instruction FOR. 

Donne la tangente d'un argument exprimé en radians. 


2. COMMANDES BASIC 


Elles permettent d'exécuter immédiatement une opération spécifique indépendamment de tout 


programme. 
AUTO 


CONT 


DELETE 
EDIT 
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Numérote automatiquement le programme. En appuyant sur |CTRL le 
numérotage est arrêté. 


Permet de reprendre l'exécution d'un programme après arrêt par | CTRL [C]. 


Permet l'effacement d'une ligne ou d'un ensemble de lignes de programme. 
Introduit le mode édition à la ligne spécifiée. 
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FILES Liste les fichiers dans le répertoire du disque. 

KILL Efface un fichier mémorisé sur disque. 

LIST Liste les lignes du programme sur l'écran. 

LLIST Liste les lignes du programme sur l'imprimante. 

LOAD Charge, en mémoire, un programme contenu sur une disquette. 

MERGE Charge un programme à partir d'une disquette et l'ajoute au programme déjà en 
mémoire. 

NEW Efface le programme contenu en mémoire. 

PSET Affiche un point à l'écran. 

PRINT Affiche à l'écran. 

READ Affecte, à une variable, la valeur correspondante précisée dans DATA: 

REM Insère une {REMARQUE » dans le programme BASIC. 
On peut remplacer REM par une apostrophe «”». 

RENUM Renumérote les lignes d'un programme. 

RETURN Voir GOSUB. 

RUN Charge et exécute un programme BASIC situé sur disquette. 

SAVE Sauvegarde sur disquette le programme situé en mémoire. | 

SCALE Définit l'échelle entre les coordonnées de l'utilisateur (mm par exemple) et les 
coordonnées du matériel (pixel). 

WHILE/ Exécute une série d'instructions dans une boucle tant qu'une condition trouvée est 

WEND vraie. 


3 TABLEAUX DE CORRESPONDANCE DES 
FONCTIONS BASIC UTILISEES DANS CET 
OUVRAGE 
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N9S NEN13E W3bH avat | 1NIEd 
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GÉNÉRALITÉS 


P IIINN O 1V3d3b 
P IINN © 1V3d34 


O ON3M 9 37IHM 


O ON3M 9 371IHM 
ON3M O0 9 37IHM 


7IILNN © 1V3d434 
9 “IIINN © OQ 


O ON3M 29 37IHM 


ON3M-371I1HM 


ajueb6uel 


(e) $H1s 


(e) SU1S 
(e) SULS 
(e) SuLS 
7 (suis 
(e) SuLS 

(e) SULS 

7 (e)suis 
(8) SULS 

(8) SULS 

(8) SULS 


(8) $HLS 


(8) $HLS 
(e) $HLs 
(e) $HLS 
(e) $H1s 
(e) $HLS 
(e) $HLis 


$HLs 


(8) Suis | ( )ues C)NIS 
e) suis | ()ues CNIS 
)NIS 


(8) $H1s 


| SMDIOD LOT IDUDIZ=T  JUIMIOLEE TRI 


( )HDS Conis | uny338ds xz 


2 —— ee mm 


SON uosuwoul 


7 (ues ET (77 O1 uosuwou] 
( )40s | (onis | 006194 dueuss 
()ues ()NIS 7 FSerod dueus 
()ues ÇCjNIs |  sow3v 2tu0 
() Hs omis | 5 sruo 


2€ uobeug 


aJ0pouwo7 


7 deozX3 015e9 
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CHAPITRE 2 


ÉLÉMENTS GRAPHIQUES 


Écrans graphique 
et alphanumérique 
Table traçante 


1. ECRAN GRAPHIQUE (E.G.) 


£crenmr ocrap/io 


D 


256 Pixels. 


Figure 2.1 


papier, l'ordinateur utilise l'unité Pixe/ et non le 
millimètre. L'échelle de conversion propre à 
chaque écran est sensiblement de : 


L'écran graphique n'occupe pas la totalité de 
l'écran réel. Ses dimensions sont mesurées en 
pixels (points lumineux). Il y a donc 


131072 points lumineux qui couvrent cet écran. 


Pour reproduire sur l'écran le dessin tracé sur 
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5 pixels = 2 millimètres horizontalement, 
2 pixels = 1 millimètre verticalement. 


ÉLÉMENTS GRAPHIQUES 


2. ECRAN ALPHANUMERIQUE [(E.A.) 


L'écran alphanumérique est destiné à l'affichage 
de textes. Les caractères utilisés sont délimités et 


positionnés par le déplacement d'un curseur 
formé d'un pavé lumineux de 48 Pixels (6 x 8). 


£ererr a1p/aremertgeue. 


Î 64 colonnes. | 


Figure 2.2 


3. TABLE TRAÇANTE (T.T.) 


L'aire de traçage est considérée comme un 
système de coordonnées cartésiennes dont les 
axes X et Y sont mis à l'échelle en fonction des 
unités utilisées. 

Pour le format A4, elle est de 11040 x 7 721 
(unités du traceur) : pour le format A3 de 
11040 x 16158. 


Le tracé 


1. LE POINT 


Pour afficher un point à l'écran il suffit d'allumer 
un pixel. On lie un repère (O.X.Y) à l'écran 
graphique. Le point est repéré par ses coordon- 
nées X1.Y1, par exemple. 


Le traceur graphique est capable de dessiner sur 
des supports de quatre formats : 
ISO A4 (210 x 297 mm) 

ANSI À (8.5 x 11 pouces). 
ISO A3 (297 x 420 mm) 

ANSI B (11 x 17 pouces). 


L'origine des coordonnées est située dans 
l'angle inférieur gauche. 
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ÉLÉMENTS GRAPHIQUES 


À. Organigramme 
LIRE XI1, + 
dé: lssmen-mezse l.C2SS; 125), 


A=F CX). 


AFFICHAGE DU POINT. 


0. es SEE: 
Figure 2.3 Figure 2.4 
Programme (E.G.) (d'après le listing) 


10 CLS. Netioje 1 ecronr 


20 PSET <2S0,. 125). 


AZ, YJ. 
IS ÉTÉ ON gui allume 1eæ Port. 


RUN. mms PIE CTP CT OT D'oxeCiÈ ro À, 
PTOGT ONE. 
Figure 2.5 
Représentation sur l'écran 
L 
Figure 2.6 


Programme (T.T.) 


Remarque 


L'utilisation de la table traçante nécessite l'appel des instructions de 
commande tirées du P.COS, langage machine. Ces commandes servent à 


initialiser la table. 
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ÉLÉMENTS GRAPHIQUES 
10 Sous-programme d'initialisation de la table. 
100 AS$S=°” ri ENER?ER: Nas.” ’ : gosub SOO00C. 
RUN. | | ue RE Sous-crogr one. 
| _ Pen ee ler Dow’. 
a Plorme Ne 1. 


Figure 2.7 


2. LE SEGMENT DE DROITE 


Un segment de droite est défini par ses deux points extrêmes (A) et (B). 


Y 


Figure 2.8 


Syntaxe 


REMisessss 


— fEMOITGqUEe SU 1 NnaËtre OÙ PTOGTOMNMNEe. 


INPUT X1, Y1. 


—__——— Coorsonness. 


— — —_ fnséruction d'offeciotion de voleur 


LINE <X1,.Y12=<xXe,; Ye). 


-_—_— Loordennees es POINÉS @xXÉTEeNES. 


——— - > LNSÉTUCÉION De Croce. 


Figure 2.9 


Programme (E.G.) 


10 Trace d'un segment de droite 
20 CLS 

20 INFUT X1,Y1 

40 INPUT X2,V2 

30 LINE (X1,.V1)-CXE,%Y2) 


Tu 7 


Figure 2.10 
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ÉLÉMENTS GRAPHIQUES 


Exécution 


RUN. 


O0, 40 


F Te 

‘ dJnséreucérionr de validation 
| Loorcornees A Jer poïré © jnéroire deu clavier 
| 


—_—> ALLe] des variables © enmérer 


P ne 150 
Figure 2.11 Loorconrees o Ce porré © fréroire a clovien 


Représentation sur l'écran 


On s'aperçoit que l'image obtenue n'est pas 
représentative d'une grandeur exprimée en 
millimètres. 

Une échelle de conversion (SCALE), propre à 
l'appareil, permet d'obtenir un tracé dans cette 
unité. 

Pour cela, on trace un segment horizontal et un 
segment vertical qui déterminent les limites de 
l'écran graphique. 


Figure 2.12 


Exemple 
10 LINE (0,0) -(511,0)———— Segment de droite horizontal. 
20 LINE (0,0) -(0,255)— Segment de droite vertical. 


Figure 2.13 
La mesure en millimètres permet cette conversion. 


10 CLS. 


20 SCALE O, 220. ©. 136. 


Le NE X 
> VF min 
ee N° MOX. 
———————> À Mi 
- = JrSsÉruCÉronr qui ete mine 7 SySsÉere. 


Ze coordeonnrezs ex2rimees er LTICEe. 


véi’/isaéeurr 


30 LINE <S0O.S0>-<100. 150). 


Figure 2.14 7rece d'Ur segment Ce droite 
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ÉLÉMENTS GRAPHIQUES 


Programme (T.T.) 
10 GOSUB 4SO0O00: REM Initialisatiomn de la table. 
100 A$=°"epl; PUSO, SO, pdpal0O0. 150: ‘ ‘: GOSUB SOOOC. 


De même que pour l'écran graphique la longueur du segment obtenu est exprimée en unité du traceur. 
Pour la conversion en unité utilisateur (millimètre), il faut opérer de la même manière que 
précédemment. 


Syntaxe 
SC Xmimn, Xmax, Ymim, Ymax. 
——.(SlCo/e2s TNSÉTUCÉIET GET . 
Ceterminre echelle J'UÉr]Ir- 
sation de Ja Cable Éracorée.. 
Figure 2.15 


3. LE TRIANGLE 


Le triangle est obtenu par le tracé de trois 
segments de droite définis par les coordonnées 
des points extrêmes. 


dE 


Figure 2.16 


: Mie Ne. . X3. 
Le tracé sur l'écran, suit l'ordre établi par le programme. 


Syntaxe 


Les guillemets qui suivent l'instruction INPUT aident l'utilisateur à entrer les données par l'affichage 
des variables à l'écran. 


INPUT TX1=, YV1=’°7,xX1, Y1. 
ANT ICNAGEæ Des VOrICL1es. 
Figure 2.17 
19 


ÉLÉMENTS GRAPHIQUES 


Programme (E.G.) Exécution 

10 CLS 

20 ‘Traces du triangle RUN. 

30 SCALE 0,220,0,136 

40 INFUT "Xi=,Yi=";X1,Y1 

50 INPUT “X2=,V2=";X2 Ve X1=. Y1=.50. 10. 
60 INFUT "X2=,Va=";X3,V3 

70 LINE (X1,Y1)-4(X2, V2) X2=, Y2=.100. 80.[CR. 
80 LINE (X2,Y2)-(X3, V2) 

90 LINE (X3,Y3)-(X1,Y1) X3=, Y3=.160, 20.[CR.| 
Figure 2.18 Figure 2.19 


Représentation sur l'écran 


Figure 2.20 


Programme (T.T.) 

10 Soue-programme d’initialieation da la table. 
100 A$=°°SP1: PUS850, 4400, PDS850,. 4400: PA64S0, 4500: 
5700. 3200. 5850, 4400’ ‘1: goeub SOO0C. 

Figure 2.21 


4, LE RECTANGLE 


La méthode de tracé peut être la même que celle 
que l'on a utilisée pour le triangle. 

Comme  X1(A) =X4(D), X2(B) = X3(C), 
Y1(A) = Y2(B), Y3(D) = Y4(C), l'ordinateur 
pourra tracer le rectangle à partir du programme 
suivant. 


Tai NV lisissess 


Figure 2.22 KA Na X2, X3. 
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ÉLÉMENTS GRAPHIQUES 


Programme (E.G.) 


19 ‘Trace du rectangle 
20 CLS 

120 SCALE 0,220,0,136 

40 INPUT "Xi=,Vis"; X1,Y1 


50 INFUT "X2=,Vaæ"; X2,Y3 | 
60 LINE (X1,V1)-(X3,V3,,B Figure 2.23 
Syntaxe 


60 LINE CX1. Y12—-CX3. Y3)..8. 


.. B=Box. 

Jnstrectrson qui permet 1e. 
êreoce ou ræctongieæ © ParCIir 
ces coorconnrees Ces sommets 


2poses A æc LC 
Figure 2.24 


Exécution Représentation sur l'écran 


RUN. 


X1=, Y1=50. 30. 


X3= Y3=190. 90.[CR.] DU 
Figure 2.25 | 


Figure 2.26 
Programme (T.T.) 


10 Sous-programme d’'initialisation de la table. 
100 A$=°"epl;: puS900. 43S0. PdSSO00. 4350. 6300. 43S0. 


5300. 28S0. SS00. 28S0. S900. 4350‘: goesub SOUOC. 


Figure 2.27 
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ÉLÉMENTS GRAPHIQUES 


Les figures 
polygonales 
inscrites 


Y A Van e (CF) 


lya=vc+AxsSin (T) 
| XB=XC+Rx*cos (T+dT) 


lyB=Yc+Axsin (T+dT) 


O 


Figure 2.28 
La représentation des polygônes réguliers est facilitée par l'emploi d'un tracé répétitif. 
Ils sont obtenus par une suite de segments égaux (A, B), À et B appartenant au cercle. 


Organigramme 


DEBUT 
INITIALISATION 


Repeter de I=0 jusqu'a 


Boucle FOR . NEXT 


L'instruction {(RÉPÉTER » de 7 = O jusqu'à 6.3 
avec un PAS DE 0,1 se traduit en BASIC par: 


FOR T = 0 TO 6.3 STEP 0,1 … NEXT T. 


= 6.3, avec un pas de O.1 l | _.. 
| | Elle précise les valeurs initiale et finale de la 
| | boucle ainsi que son PAS. L'instruction agit 
| race où. | y comme un compteur qui augmente de la valeur 
segment de droite : du PAS (incrément) jusqu'à la valeur finale 
| connue. 


À chaque étape, il y a passage dans le corps de la 
ee 7 boucle qui effectue le travail exigé. Dans le cas 
présent : tracé d'un segment de droite. 
Figure 2.29 
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Exemples traités 


20 

ss: se 
T=0 dT=P=60 T=0 dT=P=120 
EXEMPLE 1 EXEMPLE 2 


Figure 2.30 


Exemple 1 (affectation directe des données) : 


Programme (E.G.) 


10 CLS 

20 SCALE 0,280,0,1% 

30 XCæ100:VCs60:Re50:F#60 

4) GOSUR 1000 

50 END 

1900 ‘Trace de fiqures insarites eur EG. 
1010 FeFxs,14/180:! Transformation degrees radians 
1080 FOR T=0 TO 6,3 STEF F 

1030 XA=XC+RXCOS CT) 

1040 VASVCO4+RXSTN CT) 

1050 XBEæXCO+RXCOS CT+F) 

1060 VRaVCO4HRXSIN CT+F) 

1070 LINE (CXA.YA)-CXP,YP) 

1980 NEXT T 

1090 RETURN 


Figure 2.31 


ÉLÉMENTS GRAPHIQUES 


T=0 dT-P=72 


EXEMPLE 3 


Exécution Représentation sur l'écran 


AUN [CR 


Figure 2.32 


Figure 2.33 
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ÉLÉMENTS GRAPHIQUES 


Exemple 2 (introduction de données) 


Programme (T.T.) 


10 GOSUR 45000: "'initialisation de La table 
100 INFUT " % { 

AAQ0 INPUT " 
150 GOGSUE 1000 
LEO END 
1900 ‘Tr: 
1010 F 


se de figures insavites 
.14/180 


1070 A: 
50000 

1080 NEXT T 

1085 A$e"FUO, 0; ":EHOSUR 50000 


PAPA E TERME CXPO HE TRE CR QE 


Figure 2.34 


Exécution 


RUN 
XC=, YC=rP sn COMGONmees D Centre 


R=, Pa? sn [Of or D CECILE CISCONSCT LÉ EÉ DES (<F600eY./ 1} COÉeS/ 


Figure 2.35 


Représentation sur la table traçante 


. | 


Figure 2.36 


Exemple 3 (liste de données DATA) 
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Syntaxe 


DATA 
Én Cette INSÉTUCÉZON DETMEÉ D''INCONDOTES 4 


ATOQTSMME UNE LISÉE DE DONNEES SOUS FORME 
ge CONSÉGNÉES QUI DOUSTONÉ EÉTE LUeES SU 
MOYEN D'INSÉTUCÉIONS ÆFEAÎ. CES DONNEES SE 
ÉrouvenÉé de Drerference 8 18 FIN OU LTO- 
IT OMNE, EÎIES SONÉ SEOSTCES DO LE 


Vi? gu 7e. 


Figure 2.37 


Programme (T.T.) 


10 CLS 

29 SCALE 0,220,0,13 

30 READ XQ,YC,R,F 

40 GOSUR 1000''trace de figures inscrites sur EG, 
50 END 

100 DATA 110,55,50,78 

1000 ‘Trace de figures inscrites 

1010 FePxz, 14/1680: transformation degres ,radians 
100 FOR T0 TO 4,2% STEF F 

1030 XA=XC4+RXCOG CT) 

1040 VAEYCO+HRESTN CT) 

1050 XP +XC4+RXCOS CT+F) 

1060 VBEVCO+RXSTINCT+F) 

1970 LINE CXA,YA)-(CXE,YB) 

1080 NEXT T 

1099 RETURN 


Figure 2.38 


ÉLÉMENTS GRAPHIQUES 
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ÉLÉMENTS GRAPHIQUES 


Le cercle 


TE 


re 
O F XC 


Figure 2.39 


Le cercle est défini par les coordonnées de son centre et son rayon. 


Syntaxe 


1D CES 

20 ‘Trace du cerele 

30 SCALE 0,220,9,134 

&D INFUT "XC=,vYC0=";X0,YC 
50 INFUT "RER 

60 CIROLE(XC,YO) ,K 

70 END 


Figure 2.40 


Programme (E.G.) Es 


10 CLS 

80 ‘Trace du cercle 
30 SCALE 0,220,0,134 
40 INPUT "XC=,YC=".xe, VC XC=, YC=? 115,65 
50 INFUT "Re':F 


RUN 


60 CIRCLE(XC, VO) KR _ 
70 END MU 
Figure 2.41 Figure 2.42 


Certaines machines, dont le M20, disposent de l'instruction CIRCLE. 
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Représentation sur l'écran 


ÉLÉMENTS GRAPHIQUES 


Figure 2.43 


Le cercle peut aussi être considéré comme un ensemble de points M dont les distances à l'origine du 
repère peuvent être calculées à tout instant en faisant varier l'angle T de O à 6,28 radians. 


Figure 2.44 


Programme (E.G.) 


10 OL 
20 SE 

30 SCALE 136 

40 INPUT , OM SONO 
30 INPUT MRetfp 


60 For 

70 à XOH+RRCOQGS CT): VAE 
8Ù FSETEXL, V1) 

50 TT 

10) END 

Figure 2.45 


du cerele par points 


Ten TO 6,88 ETEF ,01 
RYC+RXSTN CT) 


Remarque 1 


Ce tracé du cercle nécessite le calcul et /a 
visualisation de tous les points tels que M. Ce 
tracé répétitif est exécuté par la machine à l'aide 
de l'instruction FOR … NEXT (voir chapitre 2, 
Généralités). 


Remarque 2 


Nous conseillons au lecteur d'utiliser systémati- 
quement l'échelle de tracé (cf : ligne 30-scale). 
[/pourra s'apercevoir, en la supprimant, de l'effet 
obtenu. 
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ÉLÉMENTS GRAPHIQUES 


Exécution Représentation sur l'écran 


RUN 


XC=, YC=®7 115, 65 CR 


A=? 60 [cn] 


Figure 2.46 


LC 


Figure 2.47 


Remarque : Tracé de l'arc de cercle 


On obtiendra un arc de cercle en modifiant, dans la ligne 60 du programme (E.G.) précédent, les 
limites de l'instruction FOR … 


Exemple : FOR À = 0 TO 4.71 step 0.01 


L'ordinateur tracera, dans ce cas, les trois-quarts du cercle. 


Programme (T.T.) 


Syntaxe 


L'instruction CI permet de dessiner un cercle ayant un rayon donné et un angle au centre (en degrés) 
sous-tendu par une corde donnée. 


F o 


\Depart du trace 


A: Angle de la corde 


EX 


Figure 2.48 
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ÉLÉMENTS GRAPHIQUES 


Lorsque le traceur reçoit cette instruction, la plume se lève (si elle était baissée), se déplace du centre 
du cercle vers le point de départ du tracé: la plume s’abaisse, dessine le cercle et retourne en position 
levée vers le centre du cercle. 


10 Sous-programme d'initialisation de la table 


100 A$=""PA125, 90; CI40; PU; ‘ '‘: GOSUB 50000 
ww  LNSÉTUCÉION JE ÉTICE EÉ 
| Voleur OU Ta, 0/7. 


pi CoOTTONTeesS JU CENÉTE 


Figure 2.49 


Représentation sur la table tracante 


Figure 2.50 


pe 

ll 

} 

EE Remarque 


Le tracé d'un arc de cercle sur la table traçante 
nécessite l'emploi d'une autre instruction : 


EE l'instruction aa (arc absolu). 


Exemple : 
10 Sous-programme d'initialisation de la table 


100 A$S='""sp2; pa125, 130; pd: 28125, 90, 270; pu; ‘ ‘: gosub 50000 


Vaiæur ge 7 ‘arc #7 C6 
uw COONTONNEES Du CHNÉTE 


2 ‘arc 


CR Coorgonnrses Ju DOL?TÉ 


geæ eva é ge face 
ge L'arc ge Cercie 


Te l'ayO7 40 


Figure 2.51 


Nota : Tracé du cercle en trait interrompu court (cercle caché) 

Ce tracé peut être obtenu, sur écran graphique, en utilisant un programme étudié dans le chapitre 4 : 
sous-programmes. 

Une instruction particulière étudié à la fin du paragraphe page 36 permet la représentation sur table 
traçante. 

Enfin, le sous-programme 48000 du chapitre 4 pallie l'absence de cette instruction sur certains micro- 
ordinateurs. 
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ÉLÉMENTS GRAPHIQUES 


L’ellipse 


L'ellipse, image du cercle, est caractérisée par son centre O, son axe horizontal AB et son axe vertical 
CD 


Figure 2.52 


Syntaxe 


L'instruction CIRCLE vue précédemment permet son tracé. Le paramètre R représente alors le demi- 
axe horizontal. On complète par la valeur K du rapport entre l'axe vertical et l'axe horizontal. 

En raison de la distribution non uniforme des pixels sur l'écran, ce rapport doit être multiplié par un 
facteur correcteur : le rapport d'aspect égal à 0,807. 


60 CIRCLE (X1, Y1), A,, KxO.807 


| AMODOOTÉËÉ d'ISODECÉ 
ES . positif renresentant 16 
l'DDOrTÉ Des X6S 
Sevarateur (2 Virgu1es/ 
Coordonnees qu Centre &eÉ Valeur 


QU DENT -IXE NOT IZONÉ SZ 


dis AS EN VE 72/7 DS ESC 


Figure 2.53 


ÉLÉMENTS GRAPHIQUES 
Exemples 


Valeurs introduites 


Figure 2.54 


Programme (E.G.) 


+0 CLS 
20 Trac 
40 SCAL a ; 
40 INFUT Vie" X1 I 

SO INPUT "Re Ke! K 

49 CIROLE CX1,Y13 ,R,,Kx.807 
70 END 


Figure 2.55 


Représentation sur l'écran 
Exécution 


RUN 


X1=, Y1=? 145, 70 


R=, K=? 40, .5 


Figure 2.56 


Figure 2.57 
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ÉLÉMENTS GRAPHIQUES 


Programme (T.T.) 


Voir le chapitre 4, paragraphe Sous-programmes (page 142). 


Remarque 


On peut utiliser l'instruction CI correspondant au tracé du cercle. Siles unités de l'utilisateur n'ont pas 
la même dimension sur l'axe des X et sur l'axe des Y, le dessin obtenu sera une ellipse. 


Les traits 


L'étude portera sur les traits suivants : 


—————— trait 
RS = trait 
D trait 


Dent eus. ms ue een) es eee trait 


Figure 2.58 


continu 


interrompu court 


mixte 


mixte a deux tirets 


Certains ordinateurs comme le Goupil, possèdent une instruction spécifique permettant le tracé 


immédiat de chacun de ces traits. 


En ce qui concerne les autres appareils, il est nécessaire d'établir un programme donnant les mêmes 
tracés. Pour cela, deux méthodes de programmation sont utilisées. Elles sont fondées sur le caractère 


répétitif du module constituant le trait. 


On choisit, par exemple, les modules suivants : 


— — ———— pour le trait interrompu court 


modu1e=TIRET+ESPACE 


pour le trait mixte 
MmOodul1e=TIRET LONG + TIRET COURT 
+ 2 ESPACES 


= EE — pour le trait mixte a 2 tirets 
MOdule=TIRET LONG + 2 TIRETS 
MITULE COURTS + 3 ESPACES 


Figure 2.59 


Pour le trait continu on se reportera aux tracés d'un segment de droite sur écran et sur table traçante. 
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ÉLÉMENTS GRAPHIQUES 


a) Trait interrompu court horizontal 
Boucle FOR....NEXT 


Figure 2.60 
"+ pes : 2e mm 
2 Denness lp Lace: e mm 

Y1 A de llongeur du trait 

Fe 1150 mm 
+ | —_.* 

X1+e X1+4 

Figure 2.61 
ee (E.G.) 

se d'un trait interrompu couvt hovizontal 


Zé 

INFUT de l'ovigine du trait A"; A 
40 INPUT "'Abscisse de l'extremite du trait, BR 
50 INFUT "'Ovdonnee de l'origine du trait, Y"5iY 
460 FOR XeA TO BR STEF 4 

FO LINE CK,Y)-CX48,4v) 

BD MEXT X* 


Figure 2.62 


“Ab 


Remarques 


— La valeur du pas (ligne 60), est égale au module. 


— Lanormalisation des traits préconise un espace de 1 mmentre chaque tiret. Dans ce programme, 
nous avons augmenté cet espace pour des raisons de résolution graphique et de lisibilité du tracé. 


Représentation à l'écran 


eme 


Figure 2.63 


A=20 B=170 Y=50 longueur du trait=-150 
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ÉLÉMENTS GRAPHIQUES 
b) Trait mixte fin vertical 
Boucle WHILE … WEND 


Y Tiret long: 
10 a 20 mm 
| 8 Donnees |[Tiret court: 
; e mm 


Espace: 2 mm 
Longueur du trait 
AB 


Figure 2.64 


Programme (E.G.) 


10 OLE Trace d'un Erait mixte vertical 
20 SCALE 0,220,0,136 

20 INPUT "Ordonnee de l'or 
40 INFUT "'Ordonnee de l'es: 
50 INFUT soisse du trait, XI": XI 

60 VIA: UHILE VI<xR 

PO LINE KL, V1) EX1L, YI+ION LINE (X1,Y14+12)-CX1,Y1+14) 
80 YlzYi+146 

909 WEND 


Figure 2.65 


iqine du trait A": A 
emite du trait ,B":P 


Représentation à l'écran 


A=0O | 
[l 
B=130 | 
ll 
X1—=110 | 
! 


Figure 2.66 
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ÉLÉMENTS GRAPHIQUES 


c) Trait mixte à deux tirets 
Boucle FOR … NEXT 


Cet exemple étudie le tracé du trait mixte à deux tirets dans une position quelconque. Îl est d'ailleurs 
possible d'utiliser ce programme pour traiter les traits précédents dans une position donnée. 


B 

Ÿ 
(| J 

AT ET 
| ee 
l 
| Donnees 

+ 
Y1+10%sin (T) adians) 


Y1 a 


Figure 2.67 


Programme (E.G.) 


10 CLS:"trace d’un trait mixte à deux tirets quelconques 

20 SCALEO,220,0,135 

30 INPUT "Abscisses et ordonnées de A";X1,Y1 

40 INPUT "Abscisses et ordonnées de B";X2,Y2 

50 IF Xi = X2 THEN GOSUB 100ELSE GOSUB 200 

60 END : 

100 1F Y1 > Y2 THEN YŸ3 = V2:V2 = Yi:Y1 = Y3 

105 WHILEY1 < Y2:X = X1:1 = 1,58: GOSUB 300 

110 W END 

120 RETURN 

200 T = ATN CÉY2 - Y1) / (X2 - X1)) 

203 IF X1 > X2 THEN X3 = X2:X2 = X1:X1 = X3:Y3 = Y2:V2 = Yi:Vi = Y3 

205 FOR X = X1 TO X2 STEP 20 # COS “T) 

210 GOSUB 300 

220 NEXT X 

230 RETURN 

300 LINE(X,Y1) - €X + 10 # COS (T2 ,Y1 + 10 *x SIN (To) 

310 LINEÉX + 12 # COS €T),YI + 12 # SIN CT) - €X + 14 x COS CT) ,Y1 + 
14 # SIN 4T)) 

320 LINEUX + 16 * COS CT) ,YI + 16 # SIN (T2) - 6X + 18 # COS (T),Y1 + 
18 *% SIN (T)) 

330 Yi = Y1 + 20 *# SIN (T) 

340 RETURN 


Figure 2.68 
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Représentation à l'écran 


Figure 2.69 


Représentation sur (T.T.) 


Une instruction particulière (LT), propre à 
chacun de ces traits et introduite dans la ligne de 
programme, permet leur représentation sur table 
traçante. Cette instruction LT est suivie d'un 
premier paramètre correspondant au motif. Le 
second paramètre spécifie la longueur du motif. 


Figure 2.70 
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Remarque 


Le module est ici égal à 20 millimètres quelle que 
soit l'inclinaison. Si T = 0, on obtient un trait 
horizontal; si T = 1,57 (x/2), on obtient un trait 
vertical. Il est donc possible avec ce programme, 
en modifiant les lignes 205 et 300 à 330, 
d'obtenir les traits vus précédemment et ceci 
quelle que soit leur orientation. Les sous- 
programmes correspondants à ces traits peuvent 
être utilisés dans le cadre du D.A.O. (dessin 
assisté par ordinateur). 


LT 

LTO 
ETE 
LTe 
LT3 
LT4 
LTS 
LTSe 


Les hachures 


ÉLÉMENTS GRAPHIQUES 


1. TRACE DES HACHURES EN CONTINU 


Représentation en coupe des pièces 


prismatiques. 


— 


Figure 2.71 


Les hachures peuvent être inclinées dans le 
sens a où le sens b. Cela se traduit mathémati- 
quement par l'équation Y = — X +H pour le 
sens a (coefficient directeur de la droite (D1) 
négatif) et Ÿ = X + H pour le sens b (coefficient 
directeur de la droite (D2) positif). 


Nota : L'étude et les exemples porteront sur des 
hachures inclinées à 45°. 


Le tracé d'un point quelconque (AX, AY) d'une 
hachure est possible s'il appartient à l'une des 
équations précédentes et si le point considéré 
est à l'intérieur du plan délimité par les points M, 
N, O, P. | 


a) Limite des équations de tracé des hachures 


H=X1+Y1+N#PAS] 


x2 


Figure 2.72 


(AX, AY) 


e 
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Les hachures sont distantes d'un pas constant 
qu'il conviendra de choisir suivant les dimen- 
sions de la pièce. 


b) Limites de tracé 


e Limites verticales : 


e Limites horizontales : AY<y1 


Chacune des droites (D1) aura une position qui 
variera de X1 + Y1,en augmentant de une fois le 
pas, deux fois le pas, .., N fois le pas jusqu'à la 
valeur extrême X2 + Y2. 


FOR AX=X1 TO X2 STEP .5 


Calcul du point suivant. 


AY>Y2 L'equation de la droite passe de Y=-X+H a 


Y=-x+ (H+PAS) 


Figure 2.73 
Organigramme 
DEBUT 
/INITIALISATION/ 
X1, Y1, X2, Ye 
FOR H=X1+Y1 TO X2+Ye 
ses Es ES 
Fa STEP PAS 
FOR AX=X1 TO X2 | 
STEP .5 | 
a 
| AY=-—-AX+H 
| | 
E | 
| \ 
L eo 
| NON 
PSET AX, AY | 
'ÉRRSE 
FIN 
Figure 2.74 
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Programme (E.G.) 


10 CLS 

Z0 INPUT "coordonnée du sommet inférieur gauche a=,b=",A,E 
30 INPUT "largeur ,hauteur:11=,12=",L1,L2 

40 INPUT "espace entre les hachuresie="3E 

930 SCALEO,511,0,25é6 

60 LINE‘A,B) - CA + Li,B):LINE(A + Li1,B2 - 64 + Li,B + L2) 
70 LINEGA + Li,B + L2) - 4,B + LZ):LINESA,B + L2) - (A,B) 


80 FOR H = À + B TO Li + L2 + 4 + B STEF E 
90 FOR X = À TO Li = À STEP .5 
100 Ÿ = -X+H 


110 IF YŸ € B THEN 150 

120 IF Ÿ > B + L2 THEN 140 
130 PSET{X,%) 

140 NEXT X 

150 NEXT H 

160 END 


Figure 2.75 


Représentation sur l'écran 


Figure 2.76 


Programme (T.T.) 


Le programme (T.T.) se rapporte à l'exécution sur la table traçcante nous donne le deuxième 
des hachures dans le sens b. La représentation sens d'inclinaison. 
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Yi CONTE LT 


cu HACMTTéé 
de KL, XS 


En EN 


de T ‘desalage 
4 LOC) 


NANCY Bey FAE 
LE CAYD 4 pAMRE TRUE CEXD ETES BY ES 


[ni 


MCPNE MU SEX, AE, ZX, 14) 


#1 TG LOOO:NEXT 


FNX, 
Furl TO 


SULTAN 
SQ1EO KR 


Figure 2.77 


Remarque 


Dans le chapitre 2, les différents programmes se rapportant à l'utilisation de la table traçante, 
commencent par la ligne : 


10 «/INITIALISATION DE TABLE» 


Le fonctionnement de cette machine, couplé à l'ordinateur, nécessite des instructions spécifiques 
détaillées entre les lignes 45000 et 50030, et qui constituent cette initialisation. 

Une étude de ce sous-programme est faite au chapitre 4. 

L'envoi à ce sous-programme (GOSUB 50000) doit être placé systématiquement en début de 
programme. !l est indispensable au fonctionnement du traceur. 
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2. TRACE DES HACHURES PAR BALAYAGE 
HORIZONTAL DE L'ECRAN 


Points eteinte Points eteints 


Figure 2.78 


Dans le trapèze défini par les points M, N,OetP, 
les hachures inclinées dans le sens a se tracent 
par une succession de points. 


a) Signification mathématique 


(o) 
? F4 
"1 7 
4 PE 
| A 
1 ;" 
à 5 
1 ie 
he e (10, 1) 
PU DURS ARTE RSS | 
]C4, 0) 
i 


Figure 2.79 
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Tout point appartenant à la droite (D1) vérifie 
l'équation : 
Y—-X+4=0. 


Tout point situé à gauche de la droite (Di) 
vérifie l'inéquation ŸY — X + 4 > 0. 


Exemple : le point de coordonnées (10, 1) : 
1—-10+4<0. 


Exemple : le point de coordonnées (4, 0): 
0—-4+4=0 Tout point situé à droite de (D1) vérifie 
Que se passe-t-il de chaque côté de cette droite?  l'inéquation Y — X +4 <0,. 
Exemple : le point de coordonnées (0, 0) : 
0—-0+4>0. 
b) Limite de tracé et inclinaison des hachures 
e Limites verticales : FOR Y=Y2 TO Y1 STEP -P 
. 
e Limites horizontales : Ye | - À + — 
E F. A 
y a 
# ? 
D L 
was L nd 
7 E: 
er ee le. 
/ xe | x 
Figure 2.80 


Syntaxe 


_— FOR X=X1 TO X2 STEP 5 


_— IF F1(X, Y) <O THEN 


sortie de boucle : &Z = X; X = X2». 


_— NEXT X 


" ‘Debut de tracage, 


_— FOR X=Z TO Xe STEP 5 


_ IF F2(x, y) <O THEN 


fin de traçage «ELSE » traçage. 
__ NEXT X 
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* ‘Sortie de boucle, 


c) inclinaison des hachures 


Figure 2.81 


Syntaxe 


I=0O 
z FOR Ye=Ye TO Y4 STEP -P 


FOR X=X1+I TO X2 STEP 5 


ere Tel 


Corps de la boucle 


NEXT X 
I=I+P 


= NEXT Y 


Figure 2.82 
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I-I+P 


Remarque 


Une incrémentation positive sur l'axe des y 
permet d'obtenir l'inclinaison des hachures dans 
le sens b. Le programme ci-dessus doit alors être 
modifié de la facon suivante : FOR Y = Y1 TO 
Y2 STEP P, 


I=I-P 
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Organigramme 


( DEBUT 
INITIALISATION 
EU 


LS me Y=Y2 TO Y1 * 


2 TE —P / 


FOR X=Z TO x2 
STEP 
RE — 


ES NS 


[re-rnre (x, y) 


be Le 


1 | 


CE : 


N 


Figure 2.83 
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d) Remarque 
_— FOR X=X1+I1-5 TO Xe 


I=0 X=X1—-5 
I=1 X=X1+1-5 
I1=2 X=X1+2-5 
I=3 X=X1+3-5 
I=4 X=X1+4-5 
SI 1=5 ALORS I=0O ET 
X=X1+0-5 
Figure 2.84 
Syntaxe 
_ IF _I1=5 THEN _I=O 
7eSsÉ WTaT ALORS Donner à TL 1 Vale © 
7esÉ fx ConÉrinuer 
e Sens des hachures 
Remplacer l'affectation | = | + P (donner à la variable | la valeur | + P ou | — P). 


Programme (E.G.) 
Voir: — Programme (E.G.) page 39. 


(E 
— Programme (T.T.) page 46. 
Instruction PSET(Xx.y). 


Sous-programme (T.T.) 


Figure 2.85 


4000 
; 


y 


me | HTT4 
camme DOFTT 


Donner I 
"Donner 


Ye mm) 
foi dre 


Co CD, à : 4) 


44 1x0 
4 Le) 
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4 150 


CF CHAN 


e) Application . Tracé des hachures à l'intérieur d'un cercle sur T.T. 


Programme (T.T.) 


Figure 2.86 


J Do 

A GOSUP 4588 :'Initial:sation da la tabie 

28 A$=" our 0 pd 1505 50h 250 100 501 Bd, 59 SMieur's ISUR 50002 
IG Ki=50:Vi-50:2=150:V2-100 

àg GOSUR 42O8 :'Trace das hachures en continu 

58 END 

LATU ‘Trace des hachéres 

LéRE ’Progrante HACETT LE 

LEE ‘cr prosranme DDPTT 

4m? :POIRS es vateurs de Ÿi1 KE Vi: Ÿ2 

&&MA “Donner :a vaieur de I(decaiage des hachutes en ni 
LÉO detinir ENFILCXS V)zFNACI, V2 (ou HD.) 
LAS ‘definir FNFACK VI PNB Vi {ou ED.) 

LAR7R ‘puis faire GOGUE 44000 

LA Pr, 2 17z 

4002 FOR V=v2 70 Vi 
à4ie8 FOR X=Xi-25+ 
ÉGUU FISFNFI IX, Yi) 
ë4i?e IF FI)B THEN ésdife 
LG  NEXT # 

äd4iia FOR f=7 TC 3 STEP 
hàisa FasFNF2 EX Yi 


STEP -P 
TI 


TN OT CTER & 
IL RE JiCr © 


LA 


site IF F2)B THEN K=X2:50T 
L4i7g Gt=tau +0 TRS AIS ee Rd'HOTREUKE EUTREEV) +R pus CI OUSLE SE7R 
là NEAT k 


EE 
D co 
LS] 


ÉGiSA Izi+r 

LECDE IF 1225 THEN I=0 

AA KEAT 

L&ZSA RETURN 

JAURO 'HRISHREMERMERR Îniti:aiisation de la Tania 
LOM 2 ’Progranve INITTHE 

LES EXP 

4SQEZ CALi"pt rottCAitpi sc'iCRlltpr ci" 

LUS COLL' rat iCAil ec com r LB DËr vos 1826" 


LG LA" c:"(Q, lo", 8H) 


DEC Gé ea LE A LS D DOTE O7E, EfiouttiOOOE SAdan 
LE At="iuisolt pl. Ÿ 16168, 1 hbiecd 400 2 2783 pu is Po Dr dB TE O7 Gros! IGOSUE SM 


.* 
EME ‘CA 
CRM 9 ANS QNN ol CUT Dé T AT 
st [à CNCENR, el DEN MS a Dr 23) 
Caps 
sine 


ST é 


LC at QE AE Ti 13) 


=} TD SIAEXT 


ARE FA: 
“dui Ê 
CUT 22 


dus EN 


QT AE 


Représentation sur table tracante 


Fig. 2.87 
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Programme : 
cosse sur E.G. 


Cet exemple, choisi pourillustrer l'utilisation des l'entrée des données DATA des lignes 50990 à 
trois sous-programmes (tracés de cercles, arcs 54060, 
de cercles, segments) permet au lecteur : — d'établir la relation entre les données 


introduites (X, Y, R, A1 et A2) et leurs 


— dese familiariser avec la lecture d'un listing, à ; 
correspondances sur le tracé. 


savoir, 
le corps du programme des lignes 10 à 990, Nota : Pour des raisons de dimensions de la 
les sous-programmes des lignes 1000 à pièce par rapport à l'écran, le dessin est présenté 
39150, horizontalement (voir copie d'écran). 
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Congés non cotes R2 COSSE  Ech:10:1 


Fig. 2.88 
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Programme (E.G.) 


Figure 2.89 
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ÊTRACE SUR ECRAN GRAPHIQUE 


EAN AMMES EXE 


de vepere gt dc: 


ve, vH: " ænm 91000 
‘a er en 51010 


LE 
70 WHILE 
80 HT 
990 ENT 


C0 :GOSUR 368000 :VWEND 
A <> 0 3000 : WEND 
L<)0 37000 : WEND 


Rex eee TRACE DE GEGMENTS EN CONTINU 
LE Nbre de segments a entrer en 52000 


4 TON 
READ KE, Ye 
XE=FNACXE) 


37090 LINE CX1,VII-CKE, Va) 
47100 X1æXx2 
APLIOD Vieve 
37120 NEXT I 


RETURN 
FHXXXXXXXXTRACE DE CERCLES 
READ XC,ŸYC,Ri'a entrer en 53000 


FOR Te) TO é,X STEF F 
mXO4+RXCOS CT) 
VOH+RXSTN CT) 
XCO+RXCOS CT+F) 
VOHRXGTN CT+F 

FNA OX 2 


80460 
28970 VE 
38080 X]! 
268090 ) 
38100 
EOLIO VESENE (Ya) 

38120 LINE (X1 ,Ylie (ka, vai 
38130 
38140 
38150 
29000 ? #3 
39010 READ xe, ve, R, 
39020 LEALKE, iélé/1t 
3903 re : TO AË STEF F 
39040 XL | 

39050 
49060 
39070 


ERCLE 
etre en 54000 
Bx3,1416/180:Fe,LEKSENCAD-AL) 


30050 
EFIOO0 VIF NE (V1) 

ZP110 VEEFNE (VE) 

39120 LINECX1,Y1)-CX2,Y2) 
36130 NEXT T 

EO140 ArA- 1 

49150 RETURN 


ÉLÉMENTS GRAPHIQUES 


5096 é à à et Nbre de segments @en conmtivu, 
de ce ] É 

sTE0R DAT 9,320, 204, 

DATA 7,1, 


Va et KR des cercles 


luxneeexxse Xe, Vo, RAI et AE des arcs de cercles 
DATA LE, 95 ,50,-145, Lés 
DATA 154,7, 55, 0,25,90 
1 DATA 154.7, 5,80,870,325 
DATA 187, 55, 20, ,90, 180 
DATA 137, 135,20, 180,270 
DATA 97 ,40, 1,270,360 
DATA 97. ,190,4 3,0,90 
54070 DATA 42,40,20,180,270 
3 DATA 42,150,20,90,180 
xxxxxkxxkkeNombre de segments et extremites des segment 


53060 


54000 DATA 1,154,7,75,137,73 
54010 DATA 1,154. 7,115,137,115 
DATA 1,117 OO ÉE 
DATA 1. ,117 ! L 

DATE 97, 
DATE 
de) 54 Dé 0 DATA 


Figure 2.90 


———— COPIE & ECRAH 


F Pa 
F # 
| 
—" TT , 
Sd se à 
u d 
1. “ 
È À ‘ 
CE ar _ À, 
Pen 1 
. fl 
. 
‘ À, 
( | | 
| 
À, j | 
ES F | 
Re rh f 
TT , — no 
ME # 
ra Lt 
| La # 
sf” 
i 
l 


Figure 2.91 
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Exercice d'application : 
fourche de cycle sur E.G. 


FOURCHE DE CYCLE Patte avant Ech:3:1 


Fig. 2.92 


Rédigez votre programme 


CHAPITRE 3 


PROGRAMMES 


Programme : 


sphère d’attelage 


sur E.G. 


La sphère d'attelage, extraite du dessin 
d'ensemble joint, est obtenue à partir d'un 
programme d'exécution fondé sur l'étude 
méthodique des projections et la mise en place 
des formes fonctionnelles. 

La structure de ce premier exemple fait appel à 
une programmation linéaire. Chaque tracé est 
réalisé à partir de données, en mode d'affectation 
directe, introduites au fur et à mesure de 
l'évolution du tracé. 

Cette programmation simple présente l'inconvé- 
nient de posséder un déroulement figé dans la 


mesure où le type d'affectation de données 
impose la dimension du tracé. 

Dans cet exercice, il est fait appel au seul sous- 
programme de tracé de cartouche dans lequel la 
seule variable est le titre (voir chapitre 4). 

Le premier programme fournit un tracé sur écran 
graphique. Le dessin sur table traçante est réalisé 
à partir du second programme. Il fait appel à des 
sous-programmes particuliers de connexion aux 
sorties utilisées. 

Le lecteur peut constater les différences dans la 
présentation des dessins. 
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30V 1311V 


LL eneu23 


aJJenb3 


0SS aruds 


LL7- LT 3 AN 7 30 Sup E el]epuoy 


819-173 3N 7ZW 4H N0137 


EE — —— 


OLW'UH Nn0J33 
GE-OLW'H uoinog 


ETRIREr 


DETENTE 


€EO : -9zs =84 973 


0 : 
7600: %2=6H 99 


Figure 3.1 
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PROGRAMMES 


tHAT 


E ALI 


pen 
Len, 


j HEMITM- 


ee 
Le] 


a É 1: 


É 


FHEF 


0 


te 


Figure 3.2 
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PROGRAMMES 


Programme (E.G.) 


Figure 3.3 


1 ‘le 29-07-65 

10 "ÉLÉSÉELSÉFESÉELEEELEE CFHERE D'ATTELAGE £LEÉLEFÉLÉLSELES 
LELE 

eu [a] lv nss ei F' vo 4 vamme LA F H E Fi FE dis D cie Sais pie its chi on a lades du be MS Qué ain th a die Gé me 


#0 COLOR 0,1 

40 CLS 

50 CALL "la'"(C"EPHERE",1,50,1%,0) 

60 OURSOR C1,19 : INFUT À | 

70 CLS:INFUT "Ecran couleur tapez 9 ou N :"KR# 

80 IF KRéz"O" THEN CO=0:Clel:C2=2:03e3 ELSE Qls0:COs=1:CEe1: 02 


90 COLOR CQ,C1L: COLE: GOSUR 10000:’ Trace du cartouche sur En, 
100 CURSOR (1,1) : INFUT A4 

110$ eeeeeseeseTirace des 
1LLOQ X&10:A%400:UHILE 
X+25,120)-€X+30,130) 

120 X=X+25 

130 WEND 

140 CURGOR C1, 1) :INFUT À$ 

150 Ye80:Ba1lBSO:UHILE V<aBR:LINE (75,%9)-0(75,Y+#+R80) LINE CS, Y+E 
3)-(75,v*+30) 

160 VeV+3s 

170 WEND 

180 V=80:Be180:UHILE YésB: LINE (E00,%)-C200, +20) LINE (200, 
+25)- (200 ,V%+30) 

LPO Vav4rs 

200 WEND 

EDS eee Tnace des formes fonctionnelles. 
210 QURSOR (1,1): INPUT A$:'Trase de La forme spherique 

220 FOR X#1) TO €é,28 STEF .01 

230 FSET C5SN0xCOS CX)+75,,86xS0XSINCX) +130) 

S40 NEXT X 

250 FOR Xe,5408 TO 5,7292 CTEF .01 

260 FSET (C50xC05 (X1+200,,86%x5S0xSINCX) +130) 

70 NEXT X 

280 CUREOR CL, 1): INFUT A$:'Trace de la forme cylindrique 

290 FOR X#0 TO 4,28 STEF ,01 

00 FPSET CE8xCOS (CX) +75, 20%x,BEXCINCX) +120) 

310 NEXT X 

Se0 LINE (290,108)-(305,108) ::LINE C205,108)-(205 188) :LINE € 
305,152)-(290,152) 

3220 CUREOR CL, 1): INPUT A$:'Trace de la couronne cireulaire 
340 FOF X=0 TO 4,58 STEF ,01 

280 FSET (35*xC06 CX) +75 ,20,1%XSINCX) +120) 

360 NEXT X 

379 LINE (290,100)-(290,160) 

380 CURSOR C1, 1): INPUT A$:'Trace du filetage 

390 FOR X#1 TO @,28 ETEF ,01 

400 FSET CE2xCOS CK1+75, 18, S2XSINCX) +130) 

410 NEXT X* 

4EOD LINE C310,110)-(405,110) LINE (405,110)-(405,150) 

430 LINE (405,1501- (310,150) :LINE €310,150)-C310, 110: 

440 CURSOR CL, 1): INPUT AS: Trace du fond de filet 

430 FOF Xe TO 4,71 STEF ,01 

460 FSET (1GXCOS CX) 475,13, 76XEIN CX) +120) 

470 NEXT Xx 

480 LINE CX10 ,114)- (409,114): LINE (409 ,14é6)- (310,146) 


56 


Le D 


X<=A:LINE CX,130)-(X+20,130) :LINE € 


PROGRAMMES 


des volumes enveloppes. 
N “EL ok Hiras A$:" Trace ds cylindre et du tronc de 


160) CP8D, 160) : LINE (£80,160-(C280,100) 
CE : ,100)-€290,100 

CE80, 160) - (255,151) 

34 TO 5.146436 STEF .01 

CLEKCOG CX) 4250, 10, ZEXSTIN CK) +160) 


1 D): INPUT À 
(280,100) -C255,1091: 
Xæ=1,116 TO %,4944 STEF ,01 

(Lex 005 (X)4+250, 10. 22XSIN (XI +100) 
& 10 TX 
BEN LINE (845,1123)-(245, 147) 

SOR C1, 13: INFUT A4 : Trace du chanfrein 

#40 LINE (405. ,1103-C409, 114) :LINE (409,114) - (409,144) 
650 LINE (409,146) (45, 150) 
GED CUREOR CL, 1): INPUT AS: Trace de la gorge de degagement 
670 LIN (305 ne, 146) 
(405 ,114)- C310, 114) 
50 1: INFUT a$ 
> 00 D a ee om eme mem Mi Ge A net des vga ee ne ne em 
seu FOR Xæf1 TO &@,28 STEF O1 
GET CAOxCOS (X) +75, ,846X4PXGTNCX) +130) 
NEXT X 
747 FOR Xx,5408 TO 5,7%92 STEF ,01 
750 FSET (49x00 CX)+200,,86Xx49xSINCX) +130) 
FAQ NEXT X 
270 CURGOK (1,1): INFUT À$ 
790 FOR Xx0 TO 4,29 STEF .01 
FO0 FEET CE7xCOS (X)+75,27%,BéXxETNCX) +130) 
300 NEXT X 
810 LINE C290,109)- (305,109) :LINE (C304,109)-C204,151) :LINE € 
304 ,1511- (290,151) 
530 CURSOR C1,1):INFUT À 
930 FOR X=0 TO 6,88 STEF .01 
940 FSET CZ4xC06 (X)+75,34%x, B6XSIN CX) +130) 
550 NEXT X 
géti LINE QE AE 
870 CURGOR CL,1):INFUT A$ 
680 FOR Xx07 TO _ STEF 01 
Don FSET CPL*xCO0S OX) +75,21%, B6XxSTIN CX) +130) 
900 NEXT X 
“ DE (310, 111)- 0404, 111) LINE (404 ,111)-(404,149)3 
LINE CéDé4, 1493 Ca11, 1490) : LINE (311,149)-C311, 111) 
OUREOR CL, D): INPUT À | 
O4.) LINE : 0159) (281,159) :LINE (381,159)-(C281,101) :LINE € 
ss 
€, :INFUT A 
(280, 189) (285, 150) 
(280, 101)-(255,1 108) 

4,1) INFUT A$ : 
980) LINE (405, (115-409, 116) : LINE (408,115)- (408,145) :LINE € 
409, 145)- (405,146) ds 

AUREG a, 1ù 2: INFU 

RE 10,145): LINE (305,115)-(310,115) 
en us ds ANS nn ete à Cotation partielle-----e--evmzrer 


1020 COLOR ED, C1 

1040 LINE © 90,60)-€150,60) : LINE ‘130,60)-(175, P4) 

1050 LINE (175,94)- (170, 929 :LINE (175,94) (174,89) 
‘ “ébheve 0 50",85,62,1,0) 

1070 CURSOR CL,12: INPUT À$ 


57 


PROGRAMMES 


1109: LINE (405,150)-(430,150) 
150) 

5,110) LINE (425, 110)-(488, 115) 
-(425,150):LINE (425, 150)-(428 145) 
.",415,120,1,1) 

112 REOR A, 19 2 INPUT 8 

1140 LINE (290, 100-(290,60) : LINE (409, 114) (409, 40) 
1150 LINE (@90,50)-(409,50) 

1160 LINE (290,50)-(297,48) : LINE (290,50)-(297,52) 
1170 LINE (409,50) (404,48) :LINE (409,50)-(404, 5? 

1180 CALL'La" "él", 240,58, 1,0) 


LINE (200,50)-(290,50) 
LINE (290,501-(285,48) 
LINE (200,50)-(205,48) 


:LINE (290,70)-(305,70) 
[70)= (285,68) :LINE (290,70) -(285 72) 
70) (310, 6 D. LINE (705,70) (310,72) 
ve F Por er Lan] , 0) 

1) 2: INEUT 
405: 108) - (360,108) :LINE (305,152)-(360,152) 
CINE (350, 108) (350,152) 
LINE C350,108-(247, 1023) :LINE (350,108)- (353,102) 
LINE (350,152) (347,157) :LINE (350,152) (353,157) 
CALL"1a"C"O S6h8",360,162,1,1) 
CURSOR C1, 1): INEUT A4 
COLOR CD, € 1 
(290,150) (290,210) 
(305,195)- (340,205), ,P 
(319,195)-(319,208) 
(309,197) (315,197) LINE (318,197) (318,200) 

Gi (305,200) :LINE (290,200) - (295,202) : LINE 


LINE 
terra 
QURE 


D LINE 


onde + (350,200) - (350,152) 
LS TINEUT A$ 

TO 3,14 STEF 01 

CLDXCOS XI +200, ,86X10XSIN CX) +130) 

CAPXCOOS CKX) +E800,,86X19XSTIN CX) +130) 

CR7XCOS CX) +200,,86XE27XSIN CX) +130) 

Ca xC OS CX) +200, ,B6X34XxSTN CX) +130) 

C4ODXCOS Ki +200, ,H6X4O0XSIN CX) +130) 

F CaASxCOS CX) +200, ,B6x4SXSTN CX) +130) 
NEXT X 

FOR Xx4,71 TO 6,28 STEF 01 

FSET  (10DxC0S (XI +200, 86X10XSTN CX) +130) 
F' CLPROOS CO) +200, , BéXIOXETN CX) +130) 
17X00S CX) +200, ,B6KXEZ7ESTN CX) +130) 
ne  BÉKEGRXETNMCX) +130) 
 B6X4ODXSTN CX) +130) 
 BéX4SXETN (XX) +130) 


1480 
1490 
1500 


(1,1): COLOR Q,0:INFUT A# 
 . LINE (0,0)-(511,255),,8 


FÉLELELE SOUS-FROGRAMMES LÉLÉLEEEEELELEELELE 


1R 08,01 
E 0,511,0,255 
10,10)-(501, 
41, 10) (4% 
10) (431,245) 
l JE Cé47, 10) (447, 245) 
19070 LINE (463,10) (463,90) 
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10080 LINE (463,205)- (443,245) 
10990 LINE (431,50)-(463,50) 

10100 LINE (479,205)-(479,245) 

10110 Ve18 Ae4R UHILE V<=A:LINE (Y,429)-(V+420, 439) :LINE(Y+55, 
4 BD) = (V+30, 439) 

10180 Y=v+35 

10130 WEND 

10140 LINE (431,35)-(436,35) 

10150 LINE (438,35) (440,35) 

10160 LINE (442,35)-(447, 35) 

10170 CIRCLE (439,35) ,4 

10180 CIRCLE (439,35) ,8 

10190 LINE (438,15)-(440,15) 

10200 LINE (435,25)-(443,25) 

LINE (438,15)-(435,25) 

LINE (440,15)-(443,25) 

LINE (482,209)-(498, 209) 

210)-(498,210) 

19)-(498,219) 

LINE (482,218)-(498,218) 

10270 LINE (483,210)-(498,217) 

10280 LINE (482,210)-(498,210) 

10290 CIRCLE (483,284) ,3 

10300 CIRCLE (483,284) ,4 

10310 LINE (431,205)-(501,205) 

10320 LINE (447,90)-(463,90) 

10330 CALL "la" C"LE.F, d'HENIN-BEAUMONT",435,55,1 ,1) 
10340 CALL'"la" ("Echelle 1/1",450,11,1,1) 

10350 CALL"La"("Classe",435,207,1,1) 

10360 CALL "La" C'Nom",450,207,1,1) 

10370 CALL"1a"("Date",4665,207,1,1) 

10380 LINE (501,122)-(511,122) 

19390 LINE (127,0)-(127,10) 

10400 LINE (255,0)-(255,10) 

10410 LINE (382,0)-(388,10) 

10420 CALL'LA"C"2" 503,190 ,1,0) 

10430 CALL"LA"C"1" ,503,63,1,0) 

10640 CALL'LA"C" D",63,0,1,0) 

10450 CALL"LA"C"C",190,0,1,0) 

10460 CALL"LA"C"B",318,0,1,0) 

10470 CALL'LA"(C"A",445,0,1,0) 

10480 LINE (255,0)-(245,10):LINE (255,0)-(265,10):LINE (245,1 
0)-(255,5):LINE (255,5)-(265,10):LINE (255,10)-(255,15) 
10490 FOR A=D) TO 10 STEF 1 

10500 LINE (245+A,10-A/2)-(265-A,10-A/2) 

10519 NEXT A 

10520 LINE (10,10)-(501,245),,P 

10530 CALL "la" C"SFPHERE",468,50,3, 1) 

10540 RETURN 
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Programme : sphère d’attelage 
sur TT. 


Sphere # 50 


Figure 3.4 
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Programme (T.T.) 


Figure 3.5 


| INPUT A8 


Déni cher 


JR. CL, 1) 
45000 : 
43000 : 
(1,2) : INPUT AE 


tion de La table 
vhotuate 


de Lan pigeons, EFde,7 noire, SF 3 noire" 


TO BOOD:NEXT 


:GOEUR 50000 


elles 


3,115;pu:":GOSUE 50000 
> 50000 


Le 


19,88; pu; M GOEUR S0000 


M1) 
où 
220 


107 ,Pdpaine, Ft 7,108,83,59,83;pu:sp0; "it 


EUR 500 


,#5;pd 240,9$,270;pu;":GOSUR 50000 
5000 :NEXT 


“pa108, 105 EVENE s0000 


M:GOSUR SO0000 


SUR 


30000 


LE 000 


E 50000 
»3,115,118,115;pu:":GOGSUB 50000 


O0 
SUR 30 


bé: pui: Mi GOSUR 8 
‘118 1,68; pu;8pl0; " 


M'GOSUE S0000 
JSUR 0000 


64,59,107:pu;:sp0;" 


SUR 50000 
RINIS) 
0000 


LE M Se pr 
pdsaso(, 


400 
LC he 
fi 

420 Atetpuisgé,  LIS,S padnai 


s000 


SALLE, 164.5 11 pi" GOCUB SO0G0 
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SONO:NEXT 
té; si.€,.3;:di0,-1;1bG6rhere 0 S0":GOSUR S0000 
SBOOO:NEXT 


425 FOR 
430 
40 


TEMF 
NL 


4:50) paAs7,105;:pu; ":GOSUR S0000 
Mn PA) SOOO:NEXT 


4 él) 140, pAii8, 115; pu; GOEUR 50000 
445 TO SOOO:NEXT 


470) 
480 
0) 
300 
$10 


5,pdiéé LES; pu": GOEUR 50000 
L TO SOOO:NEXT 

, 430 ,pdl10,108; pu; ":GOSUR 50000 
RAILS, LES, pu: M GOSUR SO0000 
Pt té, 181,1€4;pu; ":GOSUE 50000 
 SOOO:NEXT 

pdpai10,125,107,124; pu": GOSUR 50000 
3; dil,0:1b8":GOSUR 50000 


S40 TO ue NEXT 
530 e,.4;di0, me LEUSGOSUR 50000 


540 
70 
580 
390 
4090 


LI | Lai, di, : IbUM:GOEUR 50000 
“pes ETES re N .dil ‘1b61":GOSUR 30000 
TEMF TG 8000: NEXT 

MpuULILS, 136; si 
té, 134 


m1: IRN SE GOSUE 50000 
: LB": GOGUE. S0000 
‘D: Lbéé!"GCSUR 50000 


du pu, k 3,dit 
4 FOR TEMP: “1 TO SOODC:NEXT 
ET Az M se PASS, 107; pu; ":GOSUR S0000 
s 9,83; pu; ":GOSUR 50000 
M4? , 107 pdt ?,83; pu; :GOSUR 50000 
FOR TEMPE TO 8000: NEXT 
A$="puéé, 110, pdp 47,107,48, 1101; pu; ":GOSUR 50000 
“146,80 ,pde ; ,46,80;pu; "GOSUR 50000 
CESR Hi di0, +1; IRME4": GOSUR 50000 
TO 8000 : NEXT 
O5, pe, 108; ; PU; ":AOSUR 50000 

,PAIT0, 88; pu; "M GOSUE 50000 

È 3,75, pdt13, 46; Du; “:GOSU 50000 
FOR TEME TO 8000: NEXT 
As "pu60, 108, pdpa90,50,97,50,97, 4€, 110,46,110,50,118,50 
MGQSUR 50000 
à 197,90 ,pdpa97, 84, 110,54,110,50; pu; ":GOEUR 50000 
TEMP&L TO BOND:NEXT 
Es .HA1 ,pdpa90,108,91,111;pu;":GOSUR 50000 
1,79 ,pdpa90,82,89,79;:pu; ":GOSUR 50000 
dr .Pd103, 46; pu; ": SOSUB 50000 
7E0 FOR TE MF: TO SOOQ:NEXT 
60 Atetpul00, 88, padtO00, 48; pu; ":GOEUR 50000 
300 UPS, 48, RAL0S, 48; pu; ":GOSUR 50000 

,n1,pdpa116,50,115,49; pu; ":GOGUR 50000 
12,3; 4d4i0,-1; 150 £é6h@":GOSUR 50000 


810) 


END 

savteethe 

CARTT 43 

me ,7 noire, späeplome ,3%3 noire" 
à Q :pd40, 190; :: GOSUR 50000 

":GOGUR 50000 
:GOSUE 50000 

UE. 50000 

10SUR 50000 

":GOSUR 50000 
:GOSUR 50000 
50900 


1; 1b0lasse":GOGUR 50000 

1: IBNOM": GOSUR 50000 

1: :UB 50000 
MGAOSUR 50000 


82: «8805 20; SABLE SF, A'HENIN-BEMLIMON 


CE 


317 L As" 


1485 ,pd40,1855; pu; ":6O0OSUR 50000 
1 TO SO0O:NEXT 
LER.ILE padñé 155: pu; ":SOSUR 50000 
165 ; 10,165; pu; ":GOGSUR S00Q0 
4 TO SONO:NEXT 
Hé 165; lt;ieis;cil,5;pu0,0;":GOSUR S0100 
SOOO:NEXT 
s pas, 172 pdpusé, 5, 163,27,5 
50000 
“LIT "TITRE DU DESSIN ?7"P# 
,180;s81,7,1;: 410 ,-1:;: 18 "4R4#:GOSUR S0000 


183,59,178,93,178;pu;": 


PCR EE 


de La table 


Mel sc": CALL MR 

com:,4800, 

. Me " , &F HS] 
L:360,0,11040,7721: 

:0; fi, Qpu; ":GOSUR 5000 


9,874,0,160;pu0,0 pan, 19 


. iv" CF NA MU GER AE, 23,12) 
| CTEMF: #1 TO 1000: NEXT 
RETURN 
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Programme : 
butée fixe 
sur TT. 


La butée, extraite du dessin d'ensemble butée 
fixe est réalisée à partir d'un programme 
équivalent aux précédents en ce qui concerne 
l'entrée des données. 

La structure linéaire est composée d'un corps de 
programme auquel se rattachent des sous- 
programmes qui forment les éléments détermi- 
nants du tracé. 

Ces sous-programmes, détaillés au chapitre 4, 
constituent la trame de chaque dessin. 

Dans cet exemple figurent les deux méthodes de 
hachurage (tracé en continu et tracé point par 
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point) dont l'étude est faite au chapitre 2. Le 
choix de la méthode est lié à la configuration des 
contours limites de la zone hachurée. 

Pour des raisons de commodité de lecture, les 
définitions des fonctions qui interviennent pour 
le tracé des hachures point par point sont 
placées en début de programme. 

La représentation en perspective isométrique 
éclatée de la butée est utilisée à des fins 
pédagogiques: elle illustre la méthode de 
réalisations d'une coupe simple. 


PROGRAMMES 


14H1/d10 F3 


TABLE de FRAISEUSE 


Ecrou de rainure 
Vis CHc M10 30-26 os 

| ET 
Can Due [ oSgnanen [marre | oser | 
ESS 


Echelle 2:1 


Ensemble 


| 
BUTEE FIXE | 


Figure 3.6 
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nation 
L.E.P. d'HENIN-BEAUMONT 


ELUNER ER LE 


Figure 3.7 


PROGRAMMES 


D 
et 


CIUIN DE 


Emini 
— 
12h10 


“JEchelle:1-1 
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Programme (T.T.) 
Figure 3.8 


1 ’ le 24 Juillet 19585 

10 ££££EELLEEE FROGRAMME DE LA BUTEE SUR TABLE TRACANTE £££ 
££££ 

29 "DEFINITION DES FONCTIONS 

30 DEF FNACX,Y)=19xY+11%xX-3535,5 

40 DEF FNECX,Y)=#46xY+3,5xx-983 

50 DEF FNCCX,V'x13,B86xv+8xX-2103,19 

60 DEF FND(X, V9, 64xV+5xX-1761,54 

79 DEF FNE(CX,Yi=2, 5xV+1,5xX-354 

319 GOSUE 45000 :’INITT4S 

909 GOSUR 42000: CARTT4? 

190 GOSUR 40000 :'’NOMTT4() 

110 CURSOR (1,1) :INFUT A$ 

120 CLS 

130 PRENT. asus ou MBUTÉE ETXE" 


160 esse s emmmnmesmeMiSe ar place des ange. mmmne 
150 A$="sp2;pui3S,70;1t5;pd325,135;pu335,140 ,pd325,235:pui": 
GOSUE 50000 

160 A$="pu260,175,pd260, 275; pu295,107,pd2395,107;:pu;":GOSUP 5 
9900 


dB mm mommmmemmemmmme Trace du mlon de Gonpéasees nee 
150 A$="sp1;1t;pu29s,107,pd208,107:pu58s,107,pdsss, 107 :puc0# 
.97,rd430% 107 puiQ?, 106 ,pdpa303,107,304 ,104;pu397,97,pd387,1 
puigé 106 ,pdpa387,107,388,104;pu.": GOCUR S0000 

200 A$z"puross 5i.2%,,9.4i1,0;1RA":GOSUF 50000 

C10 4$e"e G 1.%4,.8;di1,0,16A": GOSUR 50000 

20 A$e"pur30, :5i.3,.5;dii,0:1bA-A":GOSUR 50000 


DIQ Trace des formes fonstionnelles------ 
240 At="pu250,180 ,pdpa350,188,260,188:puze0,18e8,pd4310,188;pu 
285,188,Ppd4235,188;pu;":GOSUR 50000 . : 

250 Af='see;ltr, 1:pu350,82,pd250,132 ,pu;":GOSUR 50000 

40 FOR TEMF =1 TO SOOO:NEXT ne —_— 
270 Abf="spli:lt:pui76,98,pd476, 1282; pud7é,194 , pdg7é, CCG :puisé, 
205 ,rd316,205;pu;":GOGUR 50000 . 

280 Ats'"ep?,1+t2,1:pu279,208,pd2é1i,208;pu;":GOSUE 50000 


290 ee. Trase des espaces libres de matiere--e-ee 

200 Afz'"spl;lt;pa3ts,107;c2119;pu;":GOSUR 50090 : 

310 A$r"pazSé 205 ,pd354,29P;pu316,228 ,rd314,20$ ou M:GOSUE S 

9000 - à 

320 À$ = "sp2;1t2,1;pu279,205,pd279,228;pu241,228,pd24i,205;pu;": GOSUE 5 
000û 

330 À$ "it;splipa335,107;cii2;pu;" GOSUB SG000 . 

340 À$ "pa347,180 ,pd347,205;pu323,180;pd323,208;pu; :50000 , . 

350 A$ = "sp2;1tz,1;puz72,180,pd272,205;pu248,180 ,pd246,205;pu;": GOSUB 5 
0060 

360 FOR TEMP = 1 TO SG00: NEXT 

920:, PRINT Ma-essesnrrssssesesenssssseessssessnse Trace du volume de matie 


, 184 K pds 


ET) 


F9 A$="pu2s0, 160 ,r4320,180;puz8s, 180 ,PA42TS 180 ;,pu320,188.ndA 
LOC: DU * SOEUR 50000 

LU Arte PE :0U290,172 ,p4220,85:pu:":GQcUe 50009 

“20 a$="sp1 : 1+.. ur40 .174 ,pd4s£ 0,:198;pu; "60508 50000 

#1) c2;2ts, 1:pu260, 132,p4360,82;pu; “-GOSUE 50900 

à 20 At=èspl : lt;,pu3s£4,82 ,pd37é, PR PPMATE 122 ,pd366,132;pu275,i 
04 ,pd275S, 228; pu24s, 194, pdr4s,22 ;, F4; : GOSUE 50000 

440 A$="s 1t2,4; pu366, 194 .pd366, 228; pu; ":GOSUR 50000 

450 CUREOR a ,L):INFUT A$ 

4460 GOSUE. 30000: ‘Trace des Hacfñures 

470 CURSOR CL, 1): INFUT A$ 

480 GOSUE 20000:'trace de la cotation 

(1.1) INFUT A 

25000: trace de la rerspeitive 

(LL): INFUT AS 


= 


Gt 
son 
s10 


COUC-FROGRAMMES LEÉSÉSÉLELEEELELELLLE 


RS ES OS ES 


20010 A$s'"s08 1t:p4T20,145.64220,180;:ru376,148,pd376,194; pu 


0,190, p4 ins: puz50,158,p4250 ,180;cu220,140,p4350,140;pus 
9.170, P433S, 170;:pu322,149.5 pdea280,150,222,150.8:put74,149 


5,pdpre RE PRES 5;pu;":GOSUR 50000 
EN0?0 A Se" QUZ0S | 159.5, pdpaï20,140,222,160.5;pu348,159.5,pdpa 
250,160,148,160,5;:pu333,169.5 pdpa335, 170,3 33;,170.5;0u322,; 16 
3,5 ,pdpaz?0,170, 322,170. S;pu;":GOSUR 50000 

20030 FOR TEMF=1 TO SOO0:NEXT 

C004N Atz"pur96,188 pd710,188;:ru298,205,pd31ié,2085;ruz00,188, 
rd4i00,205;puz9s,.s, 190 .p4pa300 188, 300. 5,190;pu299,5,203,pdra 
310,205,2700.5,207;pu;":GOSUE S0O000 

20050 A$="pu323, 2 205,p4323,217:pu367,205,pd347,217;pu323,215, 
p4347,815;pu325,214.5,pdpa323,215,225,215.5;pu34s,214.8,pdpa 
347,215,345,215.5;pu;":GOSUE 50000 

20060 FOR TEMF =1 TO 2Z0O00:NEXT 

20070 A$="pu316,228,pd316,240;pu354,228 ,pd3S4,240;pui16,E£38, 
p4354,238;pu318,237,.5 pdpa31é ,238, 318,238.5;pu352,237.5 papa 
354, 238, 352,238. S;pu;":GOSUR 590000 

20080 RETURN 

21000 ‘Trace des hachures de la perspective 

81010 A$="s5p2,;":GOSUE 50000 

81020 177.,14:X2=2191:V1=86,S:V2=41.5 

21030 Tæ 

21040 DEF FNFL{X,Y)=FNCCX, Y) 

21050 DEF FNFS CL. V3 =FNACX, Le] 

21060 GOSUE 44000:’Trace des hachures 
91070 X1=172:X2=177.14:V1=86,5:V2=47.5 
51060 1=1,75 

21090 DEF FNF1L(CX,Y)=FND CX, Y) 

21100 DEF FNF2CX, Y)=FNAGX, Y) 

21110 GOSUR 44000 

P1LTN X1=168,5:X2=172:Y1=67:Y2=43,5 
21130 I=2 

21140 DEF FNF1CX,Y)=FNDCX, Y) 

21150 DEF FNFECX, Y)'=FNECX,Y) 

21140 GOSUR 44000 

11790 X1r146:X25168,5:Y1=67:V2=40.5 
21190 1=3,5 

21150 DEF FNF1CX.Y)=FNE CX,Y) 

21200 DEF FNFECX,Y)=FNPCX, Y) 

21210 GSOSUR 44000 

MET0 X1=148,5:X2-145:Y1=82.5:Y2=54 
150 

DEF FNF1LCX,V)=FNE CX, Y) 

DEF FNFZCX, Y'=FNPCX,Y) 

SOEUR 44000 
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HIS 70 Xie129:XBm140,5:Vie09,5S:VTeéer,s 
21280 TEZ 

80 DEF FNFLCX. YF ND COX, V) 

DEF FNFECX VizFNECX, Yi 

GOSURB 44000 
X1=123,85:X2=1790:V1=109,5S:V2=42, 
I=1,5 

DEF FNFLEIX ,YheF ND COX, Yi 

DEF FNFSCX  VizENAGX, Yà 

BOEUR 44000 

RETURN 

*ÉÉLÉÉLSÉÉLSSELÉES Trace de ln cerspective 


{si 


Ats"spl;pulls,224.5,pd15é.2 250,8 ssiées.s,e04. 5,81 


-$.181, Les Lé& IS, 
5, Pre 196. S;py; GOSUE 50000 
e 4178 ,1 £ 178,196,5 .161,196.,5:pul7 
A 177. 5, dé, 5 2.2,178,196,S;:nuléé ,156,v: 
; 159 ,palél,16# M AOGUE 50000 

3040 À 2:1tS;nu125,817 pd177,237;pu190 205 pdi5 237: (Rte 
155,65 ,275 Rdiss. ele ;spl;pu;":GOSUR 50000 

29050 RelS:XO0e155,65:v0 S'AleQ: ASEFTLS Fes: LD:0 

Lo060 GOSUR 48000: Trace de l'ellipse 


28020 Aé="pul 1: 
1éé, 164 ,155,19 


200 Age "pulél, À 
160.5, TA 


20065 RelS:XOm155,465:V0e208: 15460: A8r120:FeS:LDe0 

28067 GOSUR 48000:'Trace de l'ellivse 

a 5 [a FA [A D suce mue vv00 one aums 0609 cote 000 ane o400 ou00 voue 00 caue 000 2000 one T race 4 UE 1 Ari 4 ÉD RQ EE ED ou ve ae ae ne ao oo nue au ae ae 
LS080 Ate"spé;:pulfé, 2728 nd220, 206,8 we 196, Se 278: EU 
134,237.5,p4138.5,234,5,139,5,215.5 :pui?e. 215,nd191,204,191, 
149,8; pu; ":GOSUR 50000 

cs090 A$="pu109,265;dr-2,1,72;ei-,8,-,%;sl-,71;1bPLAN DE CO 
FEU: GOSUR 50000 

CL ,LÙ: INPUT A4 


28100 CUREGR 


Trace des liaqnmes de 


3 APRoulre LAS pd8e $ L45. ça 
sonc0 


81%: 


PLIBPAETIE à E 


1.1): INFUT À# 
UE 04, 5,179 ,pdt04,5,94,5;pu191,170,p4d191,7€,5; 


09,5 ,pdiés. 5. 126:pui54é, 182,5 ,pd15é6,140;pu; ":'GOSUR 5 


Es 


O0: di-t 100;si,85,.35;s11;ILFARTIE À FROJ 


Trocs de La partie à projeten----ee. 


Lipu133,85,108.5,rpd4155.5, 204,62,804,8%,191,7 
1139 .105.5,rd133.85, 0ë pu: ":GOGSUR S0000 
.85,108,5,rd4133.85,68, 162. 5,63,5,142.5,56,1 
79,13%,82,5.139. . S;pu:":GOSUR 50000 
?77,14,49,5,177, . 43.5, Lée. 
Dé, :pu?04 , ; 
177, "14 43,5,pdi 


ba. 6 l4S, 

es 10 Aés"ou1v1i,75,5, RTE 41, 

5,48,5,168,5.40,5,144,42.146, 7 :172,63,5,17 

204.49 191.61.5:put68,5.40. 5 pd175. B,44,58 pu 
ef :GHOSUR 50000 

æ1 TO 40000! : 


pal 
ndi7e,86,.5;pulñé,95,pd176,5,10 
" ! GOSUE 50000 


F: é 55,5:YC0204:A1=-45:A2-135:F=5:LDE=0 

40 GOSUR 48000: Trace de l'ellipse 

70 Rel9:XC=155,5:Y0273:01%45:A2-135:F=5:LD=0 

5380 GOSUR 48000 

90 Rel£:iXCe155,58:Y0=273: 12-45: 02-135: Fx5S:LDE0 

00 GOSUR 48000 

85410 Relr:X0=155,5:V0=48, 6: Ale45:ABS128: Fes: LDe0 

25420 GOSUR ae 

25430 A$z"ou;":GOSUR 50000 

ë f UB 21900: Trace deg hachures de la perspective 


SÉCÉSÉCSÉSELSÉS Trace des hachures CÉLÉÉLÉÉESÉELELELLEE 


20000 


JE 50000 
:COVe180:DV#186: T0 


: 223: 0Ve186:DVe205: 
JS UE 4 1000 
20060 AXe410:BXe3216: 0Ve20S:DVeSEs: Ie 
30070 GOGUR 41000 
300807 AX +7 
3000 0S 


:OVe180:DY#1688:Te0 


OVe1BR: DVelgéa Ter 


UE 41000 
Yet47:BXe376:CYs194:DVe2O0S: Te 
5 UE 41000 
Rex 7é: Ces: DVRLTO: Ter 
41000 - 


CÉLÉEELELLE NOMENCLATURE AZ LÉSÉLECÉSELEELELECELE 


e sous on0e anne ee oo0e ane one on00 n00 ous c00e F vo 4 vamme ñ! [e) "M T af LA {) eme mue v00 one oaee oe ooue ous se 006 sn0e 000 oa0e 0e sons ao os ao0e one 


pieces reperees c'K 


5,40,p4d,pr, 0, "4+STRS CM) +" puis, "4CTRSE C-M) +" 
\ BUS, MASTERS C-MI AN, pai0, MESTRSE CM) +" puli00,"+s 
pd0, AÆCTEUCE CMD 4 pusQ, MEGTRE CM) 4", pAi0, MASTRE CM) +": 
100 | 
el TO Ka4l 
THEN ffe"epi" ELSE A$e"ep2":GOEUR 50000 
"4 STRS C4O+ 148) + "pd pr190.0; pu: ":GOSUE 50100 
TO POND:NEXT 


40090 NEXT 1 
40100 FOR TEMF=1 TO 10000: NEXT 


PROGRAMMES 


a 


PROGRAMMES 


; BR BG QSUE SOIN 


SUR SO1UO 
O1 00 
MINRRNIR) 


LIEU STES CT) 30100 


CARACTERE 
Nbre le 


NUMERO "ST 


4 DE 30 
40240 
+0280 


RE CAP+TXB) 4 LEUHSTRSE 
LED 
LE MEME EC 
LE MO SE : OS 


:GOSUR 50100 


ASE 290 
40%00 
41000 DE 


en continu ÉÉLELELELEE 


FACE T éré 


Emme DOTT 
ï PE UE BX,OY wt OV  Cooordonness di 


41040 
4100 


de LT deal: ds hactoves er mm 


41000 


41070 FOR H=Ax+cv TO AX4+CY+(BX-AX)+(DV-CV) STEP 5 
41080 Age "pu; | ï 

41090 
41100 
41110 


Ki D IN 41170 
41140 LF V1 DY THEN 411460 

41150 Abe pa CHETRSE CXL) 4STRS CL 4 PATES CXE) +ETRE CYR): 
QEUR  SQTNN 
4 NEXT GX 


D RÉSESELECELEEE Trace du cartouche AE ÉÉLÉERELERÉLRLERE 
ep gamme CRT a a a oo 


sut 


noire 
30000 


#0000 
MIRININ TR) 


AGEUR 3000 


100 


LME 


Zeil,5;pu; "GOSUR 59000 


,230,39,220,27,5,2880,34.5;pu;": 


UE 
41 


NPUTA TITRE 
IT BiMSETRE €, 7XC)SSTRE CCD"; d 


5 hachures balayage vertical LÉLLE 


Programme HACHTTUERT dépose eee eee 


mme mmmmmnsf programme DODFTT eee de 


de X1,X8,Y1,YE 

% . Itdecalage des hachures en mm 
NF UX, a (ou B,C0....) 
in PNFECX, VieFNRCX Cou 0,D,,,.) 
GOSUER 44000 


XL. STEFS EF 
25+I TO Yi STEF 5 
, 

Z=Y : V=Y1 


STEF 5 


oo Y=YL:GOTO 44180 
OUR STRE CO LCTRS CV, PAM+ETRSE OO +STRE (VI 4" 


I=0 
ETURN 
FÉREÉRÉREERELERE TInitialisation de la table LÉLELELLELLLE 


2 ae ue ane cou ae ue ce ae oo ae me ce ae ee [EE jrs C3 gamme LNITT 4 Mec ce eco me con ve ane oo ae vo ane a ane ae ve 


se":CALL "el ci" 
:,4800,,,,,,1084" 


16158, 11040;:ec0,405,0,275; pu0,0,pdéDE 
GOSUB 50000 


des cercles et arcs de cercles sur TT ££É 


et00 0000 000 nene mnue eee 600 m0 mete noce mme ante oone ovee vote 0e 0e F Yo Ca] vamme ñ F: (el T T LA e none. 00e on0e one voue one one none ape ee cons one one one one one eee cm0 


Donner KE, KC0,YC AT 


AE FLD Del gi discontinu, sinon 


13, 1416/1180: FaPxz, 14lé/180:FePîxs 


PROGRAMMES 
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PROGRAMMES 


48100 
GOSUR 
48110 
48120 
48170 


50000 
ÉLEE 

50010 
30020 
50030 
50100 
SO110 
SO1E0 
30E00 
30210 
5020 
50300 
350310 
50320 
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AE "PAU+GTRS CXL) +" 
50200 

TeT+LDXF 

NEXT T 

RETURN 


: 


ÉFÉFELELELERERELELE CALL Mai" 


CALL Moi"(PNX ,"uM 6EX,A#,3,12) 


FOR TEMF«1 TO IODQO:NEXT 
RETLIRN 

CALL Mai" CPNX, "Wu", 8EX,A6,%,13) 
FOR TEMF&l TO S:NEXT 

RETURN 

CALL Mai" CFNX, Mu, SEX, A#,3,13) 
FOR TEMF=1 TO SOO:NEXT 
RETURN 

CALL Moi CPNX, Mu", 8EX,A#,3,12) 
FOR TEMF:=1 TO 1O0:NEXT 
RETURN 


MESTRSE CVLI + FDMA4STRE CKED +ETRE VE): 


ÉLLELELELELELERELRELLLLE 


Programme : 
vérin à vis 
sur T.T. 


Le programme de tracé du corps de vérin à vis 
utilise les affectations de variables en données 
DATA. 

Les données, placées ici en fin de programme, 
regroupent toutes les valeurs affectées à chaque 
variable de l'instruction READ. 

Une numérotation du tracé des formes donne un 
déroulement logique de représentation. 


PROGRAMMES 


La boucle FOR … NEXT formulée ci-dessous, 
appelle onze fois (dans le cas présent) le sous- 
programme 47000 de tracé de segments 
représentatifs des formes fonctionnelles. 

229 FOR J=1TO11 

239 GOSUB 47000 

249 NEXT J 
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PROGRAMMES 


Figure 3.9 
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Ecrou de manoeuvre 


Vis- butee 
Cor 


PROGRAMMES 


@ | _L.E.P. d'HENIN-BEAUMONT 


| ea _ nés 
Echelle: 1/1 
+-— arr 
DE 


VÉEN, 4 VS 


Figure 3.10 


PROGRAMMES 


Programme (T.T.) 


Figure 3.11 


comme VERTMNAUTE TT EE 


CIN DE DEFINITION D'UNE PIECE sur 


"7 Noir re .% Noir" 
TOUCHE FOUR CONTINUER" 

ASE 
Fonetions actes 


à RÉSENR ESC 
LED GOGUR 48000 :!TINTITT4S 
140 GOSUR 43000 
190 ÉLÉÉ Trace de lan piece CEXET4é ou GEGTT47 + AROTT48 L£É 


+ 47 # 5 sat LE, 473 pUiE0 47, padxs 47: pulse, Lés 


HAT: pu: ":GOSUB 5000 


És1 TO 5000: NE) 
Jæl TO LI 
Be 47000: Trace de 1,8,2,4,5,6,7,8,9,10,11 


SOOOCNEXT 


To 
à RES ee de 


30000 


.F 
Fr TÔ 5000: NE 


30 17; : Fe a0, D; M'SOSUE S0000 
4 TO 9000 : NEXT 
A “spi ; pu, 0; Mi AOEUR 50000 
NO el TO 
DUB 47000: Tr 


e de 12, LE 14 


sd 


F1 TO SOU :NEXT 
LEE M GQOSUR S00OQ 


HOSUE 47 000 : Trace de 146,17,18,19 
EXT 

ï 
#0000 


Qi'Trace de 20, A1 


T9 5000: 
TS 1000: 
1,":60 
“#1 TO 3000: 
TG € 
GOSUR 47000: Trace de SA, 
NEXT .J 

550 FOR TEMF 
540 FOR TEMF 
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TG SOOO:NEXT 
TQ LOOU:NEXT 


1:1E; ":GOSUR S0000 


T 6 


47000 :Trace de 24, 25,26,27, 80,29 


TO SOOO:NEXT 
,L; ":GOSUE 50000 
9 ,pdi88,155; ":GOSUER 50000 
1 TO BOOO:NEXT 
MGOSUR 50000 


GOSUR 
NEXT J 
490 FOR TEMF=Ll TO SOO0:NEXT 
7 4e"pu87,16;s1,8,,9;di0,- el; 1RA":GOSUR 50000 

F 1146 3 193 aio, “A 1bA":GOSUR 50000 

: ,1RA-A":GOSUR 50000 

dep 
La cots 


FO00 Trace de 30,30", 31,31! plan de coupe) 


5,60; 

UE 10000: 
GOSUR 2ODOQ: 
3 ENT 


S 


Lion 
ÉÉLÉELÉLLEELÉLE SOUS-PROGRAMMES LELLLÉLELÉLLELLCERELLEE 
ÉLÉCCÉÉLÉLÉLEELLE Trace des hachuves CHACHTT44) £LÉEE 


Aet"epe, GOGUR 50000 
v: D: XS Se 


S:'secteur 1 


Ê NF CK v) 
Trace des hactuves 
| 5:YVix67:/ secteur 


F3 


NACX, V) 
NE CX,Y) 


nie" * 
LOL3O T 
LOL4Q DEF FNFLCX, Vis 
LOLSO DEF FNFECX Yi: 
5 44000 

Bi Xe OS: Vimé 7: Yes: gmotenn € 


B'Vaeé47:Vleñé:! secteur à 


NACX, Y) 
NB CX, V) 


mFNC (XV) 
sFND CX, V) 


:Vamé7:Vlmé0:! secteur 5 


FNFIL CX RS 
SRE NmFNE CX, V2 


Vamé4Q:Viesé:! secteur 


NA EX, Y) 
NB CX, V) 


.4 


YE=40 :Y1 


Eé 
EN 


Secteur 


NC CX, VD 
"ND EX, V) 


ÉÉER Trace de La cotation en 40000 ££LE 


SOOCD:NEXT 
5 50000 


PROGRAMMES 
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ES RUN 


Trace de 1,8,3,4,5 


15 


19; a; dit, 0; IRIS: GOSUR 50000 
TO SOOÛ:NEXT 


Trace de 6,7,8,6 


201 10 
2 OL 7,60;81,15,.2;di0, :LEEOM:GOGSUR 50000 
aÛ13Q TO SONO :NEXT 

20140 F ok Jar TO 5 

Ë PAL 47000 Trace de 10,11, 18,1%, 14 


4, PAELé, Al; puslé 18,5, pdSe0 12,5, ":GOGSUB 50 


FOR Jæl TO 7 

GOSUR 47000: Trace de 15,16,17,18,19,20,®1 

NEXT 

Abs"purse, 51, pdras, :PUÈSE, 49,5 ,pd?48,48;":COSUE 50 


FOR TEMP&L TO SOOC:NEXT 
FOR Jæl TO 4 
47000: Trace de 88,23 24 25 


[e OSUE 


:":GOGUR 50000 
MONT 19;si,15,.8;dil,0;:1824":GOSUB 50000 
F EMF#1 TO SO0O:NEXT 


F Jel TO 4 

GOGUP. 47000: Trace de 246,27,29 29 
NEXT J 
Abe"puél,56;si,15,.2; di0,-1; 1h12": GOSUB 50000 

FOR TEMF&1 TO SODO:NEXT 

At "pu0, 0: "EHOGUR 50000 

RETURN 

PÉFCÉFÉÉELÉLÉLELEZ Trace du cartouche LÉLÉCÉSÉCICLCCCE 


À ‘trace du cavto 
ét 30! 20 Frogramm KTT | , 
43OEO FRINT"'spleplume 7 noire, sp£eplume 0% noire 
43040 F4 spl; pt. 140,0,p4d40,180; pu; ":GOSUE 30000 

& 3050 bd 5 40, (,40; pu; ":GOSUR 50000 
& 3060 U,pdga, 190: pu; MGOSUR 50000 
43070 424 40; es M:GOGSUR 50000 
50000 


MGOSUR S0000 


5 Le î 0, -1;1b0la 
AO UB 


 1BNOM 


ALAN GAOSUR SO000 


2000 ee … 
185,,29,1bL, EF d'HENIMN-BEALMONT "M: GOGL 


To 


FOR fi 
ELEC Abe purée 
a see 


pui": AOSUR S0000 


,183,37.5 


A5 7: 


1, pdté.5 


MTITRE DU DE 
LIN CE à 
La Lé THEN Cx,7 
pus, MHSTRSE CL 
rs LIRE: GOSUE 
0 RETUR N 


LEUUESTRE €, PHCN AU CRETE (CO) 


ÉLEELÉECCE 


Frodramme ACHAT é # 


…) 


STEF 5 


2: GOT 44180 

STARS OX) HGTRSE CV AU pe STE CI H+STESR CV ANS 
SO1LO0 :"CALL Me it pour HACHTT4é 
NEXT x 


PÉLCCSÉCECECÉESESE Initialisation de La table ff 


D PR PR 
, 1024" 


spl ; tipo! , 10900, 7680:8e0,874,0,190:pu0,0,pd0, 19 
.0,0,0:pu;":GOSUR 50000 


ÉRRL Trace de segments en continu gur TT LLÉELRER 


de La piece indiquer 
LEO GOGCUR &7OO0UE 
it DATA LL , HN. X,Y 


CAD AU OT CV LD 4 PDG TRE CXED AU OMCRE TRE € 
STRTRIRTR) | 


ÉÉRÉLÉLS CALE Me 


Léerte 
Ut GE 


TO LOONE vai de 


ÉRLREREE 


PROGRAMMES 
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PROGRAMMES 
51050 DATA 1:’ 
51060 DATA 156,1498,158,155 
51070 DATA L:’ 
51080 DATA & 
51090 DATA 1: 
51100 DATA 108,60,8®,60 

51110 DATA 1:° 

51180 DATA 182,34,188,67 

51130 DATA 1:° 

51140 DATA 188,129,188,155 
51150 DATA 1:° 

51160 DATA 205,34,205,60 

51170 DATA 1:° 

51180 DATA #05,129,205,155 
51190 DATA &:’ 

51200 DATA 195,34,195,67,182,67 
DATA 1: 

DATA 195,129,195,155 

DATA 1:’ 

DATA 205,40,195,40 

51850 DATA 1: 

51260 DATA 182,40,160,40 

51270 DATA 1: 

51280 DATA 805,54,195,54 

51290 DATA 1: 

51300 DATA 182,54,160,54 

51310 DATA 1:° 

51320 DATA 205,135,195,135 
51330 DATA 1:° 

51340 DATA 1828,135,160,135 
51350 DATA 1:° 

51360 DATA 205,149 ,195,149 
51370 DATA 1: 

51380 DATA 182,149,160,149 
51390 DATA 3:° 

51400 DATA 158,135,160,135,160,149,158,149 
51410 DATA 1:° 

51490 DATA 160,3%4,160,93 

51430 DATA 1:° 

51440 DATA 102,34,108,93 

51450 DATA 1:’ 

51460 DATA B8,34,88,93 

51470 DATA 1:° 

51480 DATA 158,34,182,34 

51490 DATA 1:° 

51500 DATA 195,34,205,%4 

51510 DATA %:° 

51580 DATA 228,60,228,75,198,93,158,93 
51530 DATA 3:° 

51540 DATA 158,199,208,199,828,155,158,155 
51550 DATA 1:’ 

51560 DATA 108,75,82,75 

51570 DATA 4°! 

51580 DATA 108,34,108,93,88,93,8 
51590 DATA 1:’ 

51600 DATA 95,10,95,20 

51610 DATA 1:' 

51620 DATA 95,107,95,117 

51620 DATA 4: 

51640 DATA 85,18,95,18,928,20,92,16,95,18 
51650 DATA 4:° 

51660 DATA 85,109,95,109,98,111,98,107,95,109 


3,40,205,40 


+) 


34,108 ,34 
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PROGRAMMES 


SeODOO ÉÉÉFÉLELEÉÉELEE Trace de la cotation,donnees DATA ££££ 


DATA 1:' 
DATA 182,4,182,34 
DATA 1:’ 
DATA 195,12,195,34 
DATA 1: 
DATA 18#,17,195,17 
DATA &:° 
DATA 185,18,182,17,185,14 
DATA &:! 
DATA 198,18,195,17,192,16 
DATA 1: 
DATA 182,67,130,67 
DATA 1: 
DATA 135,67,135,47 
DATA &:! 
DATA 136,44 ,135,67,134,64 
DATA &:! 
DATA 136,50,135,47,134,50 
DATA 4: 
DATA 221,15,281,5,415,9,815,15,881,15 
DATA 1: 
DATA 218,60,218,15 
DATA 1:! 
DATA 221,10,182,10 
DATA &:° 
) DATA 219,57,218,60,217,57 
DATA &:! 
DATA 185,9,182,10,185,11 
DATA 1: 
DATA 218,60,244,60 
DATA 1° 
DATA 240,60,240,5€ 
DATA 4: 
DATA 243,52,2493,42,237,48,2837,92,243,5€ 
DATA 1:° 
DATA 243,47,237,47 
DATA 3:° 
DATA 240,42,240,35,285,35,288,47 
DATA &:’ 
DATA 241,57,240,60,239,57 
DATA &:° 
DATA 
DATA 1: 
DATA 158,34,158,12 
DATA 1: 
DATA 182,17,158,17 
DATA &:! 
DATA 179,146,182,17,179,18 
DATA &:° 
DATA 161,164,158,17,1461,18 
DATA 1: 
DATA 82,60,54,60 


226,44,225,47,224 64 
, 


DATA 1: 
DATA 59,60,59,47 


DATA 2: 

1) DATA 460,57,59,60,58,57 
DATA &:° 

DATA 60,50,59,47,58,50 
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PROGRAMMES 


Programme : 
taraudage 
débouchant 


Le programme illustre la représentation d'un 
trou taraudé débouchant en deux vues dont 
une demi-coupe. 

Les dimensions de l'ensemble étant paramé- 
trées, le micro-ordinateur demande à l'utilisateur 
de choisir le diamètre nominal du trou taraudé. 
Dès que le choix est fait et en fonction de 
conditions limites et de certaines restrictions à 
l'intérieur de celles-ci, on aborde la représenta- 
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tion de la pièce dont l'encombrement et la mise 
en page sont en rapport avec le diamètre choisi. 
L'ordre de tracé, s'il est suivi par l'utilisateur, 
évite de commettre l'erreur de représentation qui 
consiste à arrêter le tracé des hachures sur le trait 
fin du taraudage. 

Deux exemples sont proposés pour permettre 
une appréciation des dimensions extrêmes. 


PROGRAMMES 


[LEP d'HENIN-BEAUMONT | 


TARAUDAGE Mi2ir 


Figure 3.12 
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PROGRAMMES 


Classe 


Date 


TARAUDAGE M36 


Figure 3.13 
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PROGRAMMES 


Programme (T.T.) 


Figure 3.14 


ON AE DE 


sata, 


du cavtonuetees 


AE 


noire, SFr, X noive" 
150 
160 
170 
180 


FR M: 


AUAETRSE CE 


Q-frs, : 


BA ETE 


AN EDSEUNE 


50000 :€ 
du volume de matiere 


ER U ". 


as 
#ép)a", 


ST 


50000 
TO SONO: NEXT: CLS: ?. 


de La ces 


SE At 
Q+f+ 
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PROGRAMMES 


FR 4" FD: AA 'ESTES C4 
30000 


; MT GOGSUR SOQQQ:QOLSE 


me CHXFOD4ETRE CE 


A'AGTRE CAO 
)+1,5)+";pu;" 


CE, BO7KRO 4E TRE CE 
SUR GTRS CAD AA MED + 


LOT REC HE TES CE 
MALO ts LME 


SOLIG- 


PROGRAMMES 


des hachées mr rfi eee ve see me ve me ae 


CE DO CIN RÉ EE 


) ref programme DOFTT ou HACHTT ééree 


mt VE Coocovrdonre 4 
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PROGRAMMES 


Er Om! 


41040 donner La valeur de T 
“1 1 i ni EH 4100 


Être 


du ct 


trace 
me Ps en ep ame CARTER ee ve ce ve ve 
3 noire" 


30000 
30000 


plume 7 noire, 8pa 


AREA ES 


50000 
MIRTRIALS 


4 30770 
CON TAEATE) 
44090 
431010 


; ALES 

A0, ,-1:1RN":C 
QGEUR 590000 
XT 


mi 1ROlagse!"COSUR 50000 


LAN EOSUR 0000 


TEMF& 1 TO 


tpusé,13$;si,85,,5 


LBL ESF d'MENTN-BEAUMONT "GO EL 


4,188: 1t5;pe 
165: pdé(, 1 
TO SOON 
3 ,LéS;ltieir. cit, Su eGOSUR 50000 
TO SOON: NEXT 


SUR 50000 

42 ENFUT OUTITRE GU DE 
LIN CEE 
THEN ,7 ELS 
PUS 'CRS TRS CLS + NEC 
LIBRE: GOGUR 50000 


HU BIURETRE C,7ROD AU CRETE CO) 


PÉAÉLEÉLLELELEELE Tnitialisaktion de la 


CALE. pl 
ALL Ur 
45050 CALL "es 


“CALL'RI ci" 
4200, ,,,,,1094" 


Le 0, Mon, 


sl; 1r0,0,: 
:0,:0,0; pu; 
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PROGRAMMES 


Programme : 
intersection 
cylindre/plan 
sur T,T. 


Après un appel de données (diamètre du 
cylindre et inclinaison du plan), le traceur 
représente le cylindre de révolution sous trois 
vues avec mise en page automatique. 

Il met en place le tracé du plan en vue de face et 
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détermine le contour de l'intersection en vue de 
dessus. Le calcul point par point permet de 
visualiser la construction d'un point quelconque 
de la courbe et de faire acquérir la méthode de 
tracé de chacun des points de l'intersection. 


PROGRAMMES 


Figure 3.15 
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PROGRAMMES 


Figure 3.16 
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PROGRAMMES 


Programme (T.T.) 
Figure 3.17 


1! le 2é Juillet 1985 
ÉÉLELELCECEEEELELE Frogramme INTOFTT LÉLÉLLELÉLELCELEELEE 


LO LE: 
LÉ 


A0 'LÉFLÉÉEFELÉELLEEÉ INTERGECTION CYLINDRE-FLAN £LÉLÉLLLEELE 
ÊELE 
50 GOSUR 45000: INITT4S 
SPRINT: FRINT "GFief,7 Noir SFR", X Noir " 
OR C1,1) : INPUT A 
1000 :'Entree des donnees 
2000:'Trace des axes 
"#1 TO SONO:NEXT 
2, ":GO0OSUB 50000 
7 € SUP "3000 :’ Trace du avylindre en esquisse 
135 FOR TEMF&1 TO SOOO:NEXT 
140 GOSUR 4000: Trace du plan-ineline en esquisse 
MF TO SOON:NEXT 
de de l'intersection 
50000 


L 3 QE TE 
n&= "pl; ":GOSUR 
GOSUR 3000:°7T du GVlindre. Mise au net 

AOSUR 4000: !7Tr s du plan ineline. Mise au net 

FOR TEMF&1 TO SOOO:NEXT 

[ "Voulez vous la construction d'un point 
re, Tapæezx Y COUT) ou N CNON) "RS 

D OIF Re"VU THEN GOSUR 6000: Construction d'un point 

00 ENT 

1LNO0 RFF ECÉLRÉLÉLSELEELEÉ Entree des donnees LÉLÉLELECEELLELE 
ÉFLÉ 

hs La CLS: FRINT:INEUT "Donner Le ravon du cylindre (R€x40): KR 


Ur: 


O FRINT:INFUT "Donner l'angle d'inclinaison du plan en de 
(D<A<x60); Az "A 

AeAxXE, 1416/1680 

IF Ko 40 THEN FRINT:FRINT "Verifiez vos donnees ":GOTO 10 


1050 IF A)60 THEN FRINT:FRINT "Verifiez vos donnees ":GOTO 10 
nû 
1060 RETURN 


ÉLÉLSESSÉLELELELEES Trace des axes PÉLSELCELELESELELELLES 


AX= ITXAR: 
CVE&TTY+R: 
2080 FOR TEMP'= } 


TO SOOO0:NEXT 

2060 Ate"spe; LES; pu4STRSE CAX) +4,55, pAd"4STRE CAX) +",185; pu; ": GO 
SUR 50000 

SIO0 As "pu ETRE CRX) 4,5, PRAM4STRE CPX) +,185 ; pu; ":GOSUR 5000 
(i] 

110 A$e"tpus, MEGTRE COYI AM RARES, MEGTRE CC) +" pu; M GOSUR S000 
(A 


AO ASE MpUÆGTRE CHRRI +STRSE DVI 4 RARES, MAEGTRSE CDY) 45 pu; "GO 
3000 
C FR OTEMF&1 TO SOODOD:NEXT 

2140 RETURN 

3 ÉFÉÉÉCÉÉCELÉELELÉEEÉ Trace du cylindre RÉLSÉLELSÉEELELEELRE 


2005 FOR TEMF&æ1 TO SOON:NEXT 
2010 Abe "LE: putes TRE CAXI+STRS COYDAUM, CT ÆSTRE CRD +"; pu; GOSUR 
30000 
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OO: NEXT 

H/B)+STRSE COV-R) +", pdpa "4+STERS (BX-H/E-E0) 
20) +5 TRS (C4 HR", pa t+STRS CPXHH 
900 


XOLS FOR TEMFæel TO à 
O0 ASE "pa M+ETERE EX 
HSTRSE CCV- RU part STRS CEXH 
LED +ETRSE CON HR #5 pu,  BOSUPR 
3025 FOR TEMF TO SOODOD:NEXT 
ÉOS0 Age "prit 4 TRE CBX) 4ETRE CDR) EU pdpa METRE CBX-H/E- LEO) 4+STR 
HEDV-RU 4 pa 


x 


+HSTRE CBX-H/2- 20) GTR DV HERO 4, pa STRE CRXI HOTTES 
ÉDV4RD +": pu0, 0; ":GOGUE 50000 

3040 RETURN 

400 'LLEÉCEECÉÉSÉELÉELSELS Trace du plan ineline LÉLÉFÉEFÉELEE 
LUCE 
4NDR FOR TEMF&1 TO SOOO:NEXT 
4003 A$e"pu0,0,":GOSUR SONO 
4005 X1=0:Vi1#C 
4010 FOR X2r0 TO H STEF H 

4Q80 TAN (A) 

NEUTRE CPX-H/RAXIIHSTRE COV-REVL) EM, PAMHSTRSE CPX-H/E 
HY+STRSE CCV-R4VE) 4" pu; GOSUR 50000 

X1=X2:YIieve 

4035 NEXT X2 

4040 EGK TEMF:=1 TO SOOO:NEXT 

4050 RETURN 


LÉSÉSSESELES Trace de l'intersection fÉÉFÉLÉLÉELE 


et TO SOND:NEXT 
:AOSUR 50000 
TO SOOO:NEXT 


“1 TO 345 STEF 5 
x*COS (TX .Lélé/ 180): VESRXSINCTxX3,1416/180) 


5090 [s MDUM+ETRE XXL) HOTRE (DV4VL 1) 4", pAM+STRS (BX4+X12) 4ST 
RE CDY+VLE) +" pu; ":AOSUR 50100 

100 KX11eX12: Vie VIiE 

3110 NEXT T - 

5120 RETURN 

6000 ÉCÉFÉÉLECELESELEEE Construction d'un point LÉFÉFELSÉLLE 


FRINT "SFr, 3 Vert :SFRsF,Z Noir " 
CL,1) : INPUT À 

4 TO SOODO:NEXT 

EU A4STRS CAX+RET) HOTRE COV4T) + TRAMS GOSUR SON00 
el LE SOOO0:NEXT 

"sit vom point sur le cercle compris 
a partir de À MM 


SO80 Age "pu t4sTRE CAXEXE)HOTRE CCYEVE) 4" pd; CIS. M GOSUR 50000 
86080 FOR TEMFæl TO ROBES RER 

4095 A$:"spz;:pu0,0;":GOSUR 50000 

&100 A$= "pu" +STRE CAX- FD +STRS CDY +R) +4" PRAM4STRS CAXHRI+STRSE CDY- 
50000 

T “1 TO SON0:NEXT 

EU UESTRE CAXEXED HOTRÉ COVER EU, PAUHETRSE CAXHXE) +OTRE 
D; 10SUR 50000 

AM #GTE AXH+XP)4STRE CDV-XEN 4" BAM4ETRE CBX+HI+IO) EST 
pu; :GOSUR 50000 

TO SOO0O:NEXT 

) D+STRE COV EVE) EU RAMESTRSE CEX+HHL)+STRSE ( 
5 59000 
FE CPX+HAL)+GTRE COY4VEN AU PRAMLHETRE CBXHHLI+OTRSE C 
puD,0; ":GOSUR 50000 


DVD) +", 
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6170 FIX=AX+X2: FIVeCV+ VE + (DY-X2-CY-YE) JE 

4180 FEXebBX+HL:FEVEeF1Y 

619O FEXEAXEXE+ (BX+HI-AX-X2) /2:FAYEDV-XE 

4200 F4X=F3X:FaVeCv+ve 

6210 FOR TEMFæ1 TO SOOO0:NEXT 

6220 AS='pU"ESTRE CFLX-1) +STRE(F1Y-3) +", pdpa"+STRSE (FIX) +STRE ( 
FIV) +" pa"+STRS CFIX+1L)+STRS(FIY-3) +"; pu; ":GOSUR 50000 

6220 A$e"pu"eGTRE CFEX-L)4STRECFEY-2) 4", pPApa"+STRSE CFEX) +STRE € 
Fev" pa'+STRE CFEX+AL)4STRE CFRY-3) +"; pu; I GOSUR 50000 

4840 A$= "put aSTRE CFEX-I) 4GSTRE CF3Y 41) 4", pdpa Me STRE CFEXNIHCTRE € 
F3V)+" pa"+STRS CFEX-H) +STRECFAV-1) +"; pu; ":GOSUR 50000 

4250 Az "pu"eSTRE CF4X- 2) 4STRE (F4 Y4L) +", pApa+STRE (F4 X) +STRE € 
F4 V4" pa'+STRS CFAX-2) +STRE CF4V-1) 4"; pu; 'GOSUR 50000 

6260 FOR TEMFxæ1 TO SOOO:NEXT 

4870 Abe "put 4STRE CAXHEXE DD HGTRE CCY+VE+ CDY-XE-CY- VER) AE) 4 pd; 
d4i0 1; 15,.8;1lbsens 1":GOSUR 50000 

4880 Abe "pu t+STRE CAX4+XE+ CBXHHI-AX-XE) /E) 4STRE CDY-XEEHE) +", pd; 
dit,0;1bsens 1":GOSUR 50000 

6290 Abe "pu"rETRE CAX+XE+ CBX+HI-AX-XE) JE) +GTRE COVA4YEHE) 40, pd; 
lbsens 2":GOSUR 51000 

4300 Abe MU ÆETRE CPXHHL-B)4OSTRE COVA4YEE (DV-XB- CV) AE) + pd; 
Ai0,1;1bsens £":GOSUR 50000 

GALQ AS su0,0;8p0; ":GOSUR 50000 

4320 RETURN 

4SOD0 ÉLÉELÉLEÉEELESEEEEE Initialisation de la table LÉÉLÉLEE 
LÉRE 

45010 Frogramme INITT45 

45020 EXe0: PNA) 

5. CALL"'p1 ve": CALL "pl se": CALL'pI ci" 

45040 CALL "rs": CALL "se com:,4800 ,,. 1084" 

45050 CALL ei "C0, "o",8E2) 

45060 A$="in;spl;1ip0,0,10900,7620; 820,274, 0,190; pu0,0,pda0,1® 
0,874,190,274,0,0,0;pu; ":GOSUR 50000 

45070 RETURN 

49900 ! FÉRÉLESEEÉSÉLELERERE Call Moi LÉLÉECELLEEEEEECLLEELCE 
FELE 
50000 CALL "ci" CFNX, "ut 6EX,A$,3,13) 
30010 FOR TEMFæl TO LOQOU:NEXT 

50020 RETURN 

30100 CALL Mai "CPNX, "UM 6EX,A$,3,123) 
50110 FOR TEMFæ1 TO 100:NEXT 

H01€0 RETURN 
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Programme : 


tableau dimensionnel 


des vis 


tracé des vis H, Q, CHc 


Le but de ce programme est d'obtenir la 
représentation des vis classiques dont les 
dimensions sont imposées par un tableau à 
double entrée fonction des diamètres et des 
longueurs normalisées. 

Le tableau regroupant les caractéristiques 
normalisées des vis est composé de quatre 
fichiers représentés ci-dessous. 


b(j) 


— Le fichier a$ (i) unicolonne, à cinq variables 
alphanumériques P, À, B, C, K, donne les 
caractéristiques des têtes de vis. 

— Le fichier a(ÿ) unicolonne, à 34 variables 
numériques de 12 à 250, donne les longueurs de 
tige normalisées L. 

— Le fichier b(;) uniligne, à 18 variables 
numériques de 2,5 à 36, donne les diamètres 
normalisés D. 


— Le fichier c(j j), composé de 39 lignes et 18 
colonnes, regroupe : 


par colonne, les valeurs du pas P, de la clé 
(surplats) À, de la hauteur de tête B, du 
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diamètre de tête C, de la clé de l'empreinte 
hexagonale K et des longueurs filetées X en 
fonction des longueurs de tige L. 


Le tableau s'utilise de la manière suivante : 


Soient un diamètre D = 16, une longueur de tige 
L = 100 et une forme de tête CHc. 

Pour caractériser cette vis, il nous faut connaître 
P et les cotes À, B,C, K. 

Les valeurs 16 et 100 déterminent les indices (;) 
et (/) des fichiers a(;) et b(j). 

Pour cela l'ordinateur compare le contenu de la 
première case du fichier a(/) avec la valeur L 
introduite. Si ce contenu ne correspond pas avec 
la valeur donnée, il passe à la case suivante et ce, 
jusqu'à la case 22. (j = 22) : la longueur 100 
correspond à la vingt-deuxième case. 

Il procède de la même manière pour l'indice ; du 
fichier b(;) des diamètres normalisés (j = 10 : le 
diamètre 16 correspond à la dixième case). 

La recherche des autres dimensions ve se faire 
par application des équations suivantes : 


se )=P=ct(1,)) 


$(2)=A=c(2,)) 
à 
$(4)=C=c(4)) 
SG) 2 KZ 6.) 


Dans l'exemple choisi, / = 22; j = 10 soient : 


P=c(1,10) = 2: valeur du pas 
A=c(2,10) = 24: valeur de la clé 
B=c(3, 10) = 10 : hauteur de tête 
C=c(4,10) = 24 : diamètre de tête 
K=c(5, 10) = 14 : largeur de l'empreinte 


X = c(22, 10) = 38 : longueur filetée. 


Les valeurs P, À, B,C,K,Xetles dimensions D et 
L introduites permettent le tracé de la vis choisie, 
à partir de trois sous-programmes correspon- 
dant aux formes H-CHc et Q. 


PROGRAMMES 


TABLEAU DIMENSIONNEL DES VIS 


Eviter l'emploi des valeurs _entre parentheses 


+ 


on | o 
! ï A 
s| 


LA 


: O} 


À 
| 


[l 
+s: 


= 
Oral 


Ü 


sjo! 


se 
| 


| 


ste! 5 o' 


ofojo 


! 


OC 


l l 44 |48 
io to F ee 40 tas ac 60 |66 En 
SR EE ES EE ME + — ne | 
150 lo lo ! 0 jo jo [32 |36 |40 |44 60 |66 72 |78 |84 
ES à me PRE j + ES 


0 î î | 
160 ON o jo jo Lo o [36 j40 423 28 55 _|60 [es 72 78 [64 
_470 [Jo [o jo 0 jo 136 [40 60 166 172 |78 184 
“180 lo lo o jo 36 40 144 | 60 66 72 |78 (84 
eee ee lee pe oies ne jeep de 
200 10 |0 j0 {0 jo lo 40 0 40 |44 |48 |52 156 60 166 72 É 
225 lo lo + o lo lo [lo [o jo lo jo o lo To o jo {a 
[_eso Jo jo Jo [o {o {fo {o “lo lo lo fo o jo lo lo lo . 
Figure 3.18 
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Figure 3.19 


Figure 3.20 
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VES: (rh M 26 


Figure 3.21 


Programme (T.T.) 


Figure 3.22 
Let 4 


La La 
Lonnemert dés Mis 
Lean dimens iormmet 


ls 


vous le La 


V “ à 
FO Yp<p"Y" THEN GOTO 70 

20000: Tr du Tableau 
T:FRINT "SFi: 
CL, A INPUT À 
UR 4#000:! Choix de Lan vis 

1O0 GOSUR 86000 :'Controle des dimensions 
LAN PRINT "ME or de feuille" 


Noir!" 


\ tata dé vis 
sovpe de la vis 
XT 


161 GQ 
170 FOR 
180 Aka!" 3,165;pd;si,7,1;1BRUIS MAFTE4", MU4STRS CD) + Me Me ETR 
QT +R ETES CX) GGSUR 50000 

190 GOSUR 25000 :'Elements de cotation 

200 CLS:INEUT Autre Evace, taper Vi: iv 

#10 THEN GOTG 90 


220 END 
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19900 ÉFCFFLÉECLCÉECELELSEELEE SOUS-FPROGRAMMES £LLELELELECELEEES 
£LLEE 
“0000 *LÉELÉLÉLÉELÉLÉELELS Trace du Etablenu sur TT £ÉE 
LELL 
20010 CLS: PRANT : PRINT "CFleF,% Noir LSFESF,E Rouge" 
20020 UE SUR 50000 
20070 | 
20040 ASE "pur E TRS CéXT) 4", D, pA'+ETRS CéXI)+", 190:pu:": GOGUR D 
QÙO0:' Trace horizontal 
20059 FOR TEMF:=1 TO 1LOOO0:NEXT 
20060 NEXT I 
0079 FOR TEMFæel TO SOOO:NEXT 
20080 FOR Jel TO 18 
20060 Abe "pu, MAGTRE C9, 5x4" paré, M4STRE CS, SX) 4" past 0, "4 
STRS CP, 5x) +" pdBéé, MRGTRE CO, 5x)" pu" :GOSUR 50000: Trace 
vertical 
20100 FOR TEMFæ1 TO 1000:NEXT 
20110 NEXT 4 
SOLEO A$s"puagé, 171,pd810,171;pu;":GOSUR 50000 
20130 A$e!"spl; purs7,177; di0,-1;s81,4,,7; 1IbBTABLEAU DIMENSIONNE 
L DES VIS": GOSUR 50000 
20140 FOR TEMF&l TO SOND:NEXT 
E0150 Abe"sps; ":GCOSUR 50000 
20160 FOR TEMFæeL TO SOUO:NEXT 
E0170 FOR #1 TO YOO00:NEXT 
20180 FOR TG 18 
SOLE Az MAG TRE CLEO, 59, Bx Ji 4" di el ei, 15,4, IDB'4ST 
RS CP CJ)) : GOSUR 50000: End EUve ON 
2000 FOR TEMF=1 TO 1OON:NEXT 
NEXT 
FOR TEMF=1 TO SOOO:NEXT 
FOR Tel TO 5 
Fihs Mpu RETRE C4 Be GET) HU TRS AIO ed isi 15, 8,16 "4ASE CT) : 
30000 :'Eeriture variables 
FOR TEMF&#1 TO 1LOOO:NEXT 
NEXT T 
FOR TEMF&e1l TO SONO:NEXT 
FOR Izé TO 2x9 
Val: Tableau bas 
As Mput+ETRSE CC XI-6xv)+",185;:410,-1;:81,15,,8;1R"4ST 
RE CA CD) > : GQOSUP 50000: vitore L 
AOY10 FOR TEMF:1 TO 1OOO:NEXT 
NEXT T 
30 FOR TEMFæ1 TO SOOD:MNEXT 
20340 Afbet"pusés, 182; 410, He 
20350 Az "purDé, 18 110 ,-1;s81,15 
20360 Abe "purDé, LL; di0 la ds 
SUR 59000 
3707 FOR TEMF=:1 TO SNOO:NEXT 
80 OS UE 1000: Dimensions a eviter 

SRE 3": GOSUR SOONOD:FOR TEMFe1 TO 1SOOO:NEXT 
TO 39 
OK Jel TO 16 
IF Toré THEN 


a IBOMGOSUR 50000 
LEL'OGOGUE S0000 
BLONGUEUR FILETEE XX" GQ 


1010 Az 
21080 FOR TE 
21030 FOR 
21040 Val 


100 


5e "PUMHOTRS CAE ÉXT-6xV) 4" 185. di0 18,15 2.1BC ; 


TO SGOO:NEXT 
ro 17 STEF 2 


2, "ESTRS(180,5-0, SXJ+";:di0,-1;si,15,,2.1bC 0 


21100 NEXT J 

21110 FOR TEMF=1 TO SOOO:NEXT 

21180 A$="pur48,105;4di0,-1,81,.15,.2;1bEviter l'emploi des va 
leurs entre parentheses" :60S UP. 50000 

21130 FOR TEMF=1 TO SOOO:NEXT 

21140 RETURN 

25000 ’ SÉFÉSÉEFEELLÉELLEE Elements de cotation £ÉLLSÉEPELELEEE 
£LLLE 

25010 FOR TEMF=1 TO SOOO0:NEXT 

25020 A$="sp?;pu0,0;":GOSUE 50000 

25030 A$="pu"+STRS (PX-L+X/2) +STR$ (90-D/2-10)+",pA"+STRE CEX-L 
+X/2) +STR$S (90+D/2+30) +"; pu; ":GOSUR 50000 

25040 A$="pu"+STRE (BX-L+X/2-1,5)+STR#E(90-D/2-5)+",pd"+STR# (CE 
X-L+X/2) +STRS (90-D/2) +STR$ CBX-L+X/241,5)+STR$ (90-D/2-5) +"; pu 
“":GOSUE 50000 

25050 A$="pu"+STRS (BX-L+X/2- 1,5) +STRS(9O0+D/2+5)+",pAM+STRSE CE 
X-L+X/2)+STRS (P0+D/2) +STRSE CPX-L+X/24+1, 5) +STRS$S (PO+D/2+5) +"; pu 
":HO0OSUR 50000 

25060 A$="pu"+STRE (BX-L4+X/2-2) +STR#E(O0D4+D/24+15)+";4d10,1;s1.8, 
4: IBM "4STRS (D) :GOSUR 50000 

25070 FOR TEMF=1 TO SOOD:NEXT 

25080 A$="pu"+STRE (BX-L)+STRSE(O0-D/2-40) +", pdM4+STRE CBX-L) 4ST 
R$ (90-D/2+,6xF) +"; pPU"4+STRSE (PBX-L+X)+STRSE CPO-D/2-29) +", PAT+STR 

BCPX-L+X) +STRS (90-D/2) : SOSUE 50000 

25090 A="puU"4STRS CPX-L) +STRS (P0-D/2-20) +", RAMSTRE CEX-L EX) + 

STRS$(90-D/2-20)+";pu;":GOSUE 50000 

25100 A$="pu"+STRS (EX-L+5)+STRS$ (90-D/2-18,5)+", PA'+STRE BXL 
J4STRS (00-D/2-20) +STRS (BX-L+5) +STR#(S0-D/2-21,5)+"; pu": GOSUR 
50000 

25110 A$="pu"+STRE (PX-L+X-5)4+STRS(90-D/2-18,5)+",pA+STRS (PX 
—L4X) +STRSE (90-D/2-20) +STRE CPX-L4+X-5) 4+STRE CPO-D/2-E1, 5) +"; pu; 
“:5CSUE 59000 

25120 A$s"spe,":GOSUE 50000 

120 A$="pu"+STRE (BX-L+X/2-8) +STRE(90-D/2-18)+";dil,0;si.£ 
4; 1E"+STRSE CX) : GOSUR 50000 

25140 FOR TEMF=1 TO SOOO:NEXT 

25150 A$="pu"4+GSTRS CBX)+STRE(90-D/2-40) +", pAM+STRE (PK) +STRE CS 

O-D/28)+":pu;":GOSUR 590000 

25160 A$="pu"+STRS CBX-L)+STRS(90-D/2-35) +", PAM4+STRE CBXI4+STRE 
(80-D/2-35)+";pu;":GOSUR 50000 

25170 A$="pu"+STRS (BX-L+5)+STRS$(90-D/2-33,5)+",pd'4+STRE CPBX-L 
D+STRS (O0-D/2-35) +STRE CBX-L4S)+STRECP0-D/2-36,5) +"; pu; ":GOSU 

E 50900 

25180 A$="pu"+STRS (BX-5) +STRECPO-D/E2-33,5) +", BARS TRS CERPAST 

R$(90-D/2-35) +STRSECPBX-5)+STRECOO0-D/2-36,514"; pu; ": GOSUE 5000 

(a) 

25190 A$z"pu"4STRS CPX-L/E-5)4+STREC00-D/2-332)+"; di0,0;si.% 

LIEESTRS CL) : SOSUR S5SND0N0 

200 RETURN 

! ÉCSCÉCÉEÉSELEE Controle des dimensions ÉÉÉFÉLLELEE 


nd 


LE Xe0 THEN FRINT "Verifiez vos donnees, Xse0":CURSOR € 
T AB: AOTO 40 
FTée"0He" THEN GSOSUB 27000 
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26070 IF QCLC1 THEN FRINT "Verifiez vos donnees L non normal 
isee":QOURSOR C1, LD: INPUT A$:GOTO 40 

24080 FOR Ji TO 18 

6090 IF BCD) THEN Caml 

eétOi NEXT 

SéLIO IF CECA THEN FRINT "Verifiez vos donnees D non normal 
188" OURSOR CL, 13: INFUIT A$:GOTO 40 

él MEF: 

SéLGO IF MEF 
Le format: QURSOR CA, 


, 


74. THEN PRINT "Dimension Eros importante pou 
LA): INPUT AS:GOTO 40 


FÉCÉLÉRELERERELRECELÉLLERE Controle CHa LÉÉ 


LÉLEEE 


27010 IF Ce0 THEN FRINT "Verifiez vos donnees, Cent OMIREOR CL 
4, L'''INPUT A: GOTG 40 

as RETURN 

30000 P'ÉRÉERLLÉLÉLÉ 


his de Lan tete de vis CÉRCLÉLELELE 


"QU OTHEN GOSUR 1000 

be OH OTMEN GOSUR 32000 

QE tr FTHEUMU THEN GOSUR 33000 

30040 KETURN 

ZOO ‘ÉFÉÉÉSÉLCÉLÉSÉSEREE Trace de la tete "A" LÉLSÉLÉLESELELE 

4 f 

LE) Abe "It, spl: pue TRE CAX 
ETRSE (PO A, 22 +STR# CAXYA 

STR$ CPOHA/EIH+STRE CAX fi +€ 


+STRS (9 
I HSTEE LPO 


rs TRE (EX) - RS (G04A/2) HU pe E TRE CBX +R) +ETRSE (GO 
LUHSTRSE CBXD HET CPO-AEN 4, pe GTR CBXERIA+STRE COO+A 
: OSUR 30000 


ÉRÉÉSÉÉSEELELRE Trace de La tete CHe LÉLCÉLCELELELECE 


TO LSOOO:NEXT 
LL, FUM4GTES CAX)I+ETRS (O0) 4 FD: OIM4ETRE CC 


UE 50000 

HSTRS CPO4C/E) 4 papa !"sETRE CBX+F%D/ 10) + 
RE (CP) DA LOY+STRSE CPOHC/ 20/10) +67 
TRS CE A0 10 A ne Me TRS BXL 0 + 
Hé HO) 4" M GOSUR S0000 
RE TRE CIO HETRE (OD-C/2) 8, PAMRETRE (BXO +ETRE (90 
SUE 50000 

TO GSOND:NEXT 

 14146/46) 

KL: Ale90:ASs4 50: Fee: L De 


RE SOOÛ:NEXT 
& , LL, EUMAETRE CES 
3 +STRS (POXKA/2) HSTR: 


ir 
ü-K1, 


R# (PDK 17434"; pur STRE 
AN PATENT E 
i! 

ÉÉLÉLLCELESEREÉLE Trace de la tete M € 


33010 AF="LE; spl; ":GOSUR 50000 
33020 FOR TEMF= 1 TS SOOUO:NEXT 
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33030 LA=A/C05(3.1416/6) 

33040 FOR TEMF=1 TO 10000:NEXT 

33050 FOR TEMF=1 TO 5000:NEXT 

33060 XC=AX: YC=90:R=LA/2:A1=90:A2=450:F1=60 : LD=0 

33070 GOSUB 48000 

33080 ‘FOR TEMF=1 TO 10000:NEXT 

33090 X3=SQR((A/4)42- (A/8) A2) 

33100 A$="pu"+STRS CAX) 4STRS (90)+",pd;CI"4+STRS (A/2)+";pu;": GO 
SUB 50000 

33110 FOR TEMF=1 TO SOOO:NEXT 

33120 A$="sp1;pu0,0;":GOSUB 50000 

33130 A$="pu"4+STRS (EX+B-A/4+X3) +STR$ (90+LA/2) +", pdpa"+STRS$ CE. 
X) +STRS (P0+LA/2) +STRS$ (EX) +STRS (90-LA/2) +STR$ (BX+P-A/4+X3) +ST 
R$(90-LA/2)+";:pu;":GOSUE 50000 

33140 FOR TEMF=1 TO 2000:NEXT 

33150 A$="pu"+STRS (BX) +STRS (PO+LA/4)+",pd"+STRS (EX+B-A/4+X3) 
+STRS COO+LA/4) +": pu+STRS (EX) +STRS (90-LA/4)+",pd"+STRS (EX+E- 
A/44X3)+STR# (90-LA/4)+";pu;":GOSUE 50000 

33160 LF=LA/2-(A/4-X3) /TAN(3.1416/6) 

33170 A$=" pu"4+STR$ (EX+P-A/4+X3) +STR$ (9O+LA/2) +", pdpa"+STR# ( 
PX+P) +STRS CPO+LF) +STRS (BX+P) +STRS (PO-LF) +STRS (EX+P-A/4+X3) +5 
TR$(90-LA/2)+";pu;":GOSUE 50000 

33180 FOR TEMF=1 TO 5000:NEXT 


21190 XC=EX+PR-A/4:YC=00+12xLA/8:R=A/4:Ai=-74: A0 84 Pis LS LD 
33200 GOSUE 48000 
12710 KC=:PX4+B-AN/4:YC=90-3%1L 0/0: Rrûe Ales Ti Ier Cle Lors 
33220 GOSUE 48000 
33230 XC = BX + B - A:YC = 90:F = A:Al = - 17:42 = 1é:Bi = 1:LD = 0 


33240 GOSUB 48000 
33250 RETURN 


41000 PRINT M"ÉÉLÉLELELEEÉELEELEEREELREELELRÉEEE Trace du corps de la vis £ 


ÉLLELELELEELELE" 
4110 FOR TEMP = 1 TO 5000 NEXT 
41020 À$ = ‘spz;lt;":GO0OSUB 50000 
41030 FOR TEMP = 1 TO 5000: NEXT 
41049 XC = AX:YC = 90:R = D / 2:A1 = 0:42 = 360:P1 = SiLD = 1 
41050 GOSUB 468000 
é NO Ag$r'"spl; ":GOSUE 50000 
1970 FOR TEMF=1 TO SONQ:ANEX 
41080 AE "pUMA4STRE CEX-L4, 6x PF) 4+STRS (90+D/E2) +", pd'4+STRE (BX) +ST 
FE (9C0+0 HMS RUM4GTRS CEX-L+,6xF) 4STRS (9O-D/E) 4", RAM4STRSE (EX) 
+STRE LO0-0/2) +"5pu; ":GOCUE S0000 
41090 A$z"spz; ":GOSUR 50000 
41100 FOR TEMF=1 TO SOOO:NEXT 
41110 XC=AX:VC=90:K=D/2-,6xF:A1=0:A2=<270:F1=5:LD=1 
41120 GOSUE 48000 
41130 FOR TEMF=1 TO SOOO:NEXT 
41140 A$="pu"4+STRS (BX-L) +STRS$S (90+D/2-,6xF)+",pdpa"+STRS$ (PX-L 
+X)+STRS (90+D/2-,6XF) 4+STRS (EX-L+X+,6XF) +STR$ (90+D/2) +"; pu; ": 
GOSUR 50000 
41150 A$="pu"+STRSE (EX-L) +STR$(90-D/2+,6xF)+",pdpa"+STR$ (EX-L 
+X)+STRS$S (90-D/2+,6XxF) +STRS (BX-L+X+,.6XF) +STRS$ (90-D/2) +"; pu; ": 
GOSUR 50000 
41160 A$="spi;":GOSUE 50000 
41170 FOR TEMF=1 TO SOOO:NEXT 
41180 A$="pu"+STRS (BX-L)+STRS$ (90-D/2+,.6xF)+",pdpa"+STRS$ (EX-L 
)+STR$ (90+D/2-,6xF) +STR$ (BX-L+,6%xF)+STRS$ (90+D/2) +STR$S (BX-L+, 
NN M NE PRE EURE SOC 
41190 A$="pu"+STRS CBX-L+X) +STR$S (90+D/2) +", pd"+STR$S (EX-L+X) +S 
TR$(90-D/2)+";pu;":GOSUR 50000 
&1200 RETURN 
42000 ’£L£LÉLEFÉEÉÉÉEEEEE Mise en page et trace des axes fff£ff£f 
£££E 
42010 A$="spe2;pu10,90,1t5,pd4,264,90;pu;":GOSUB 50000 
42020 ’On considere, pour la M E F,hauteur de tete CHe=B 
42030 MEF=A+L+P 
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PROGRAMMES 


EE CAO EU pAMeC TRE CAX) HOTEL CL 4) +" 


ÊLE Choix de Lan vis LÉLÉECLELLRE 


ÉÉLELE 


iaiv La forme 
le 0 Met 6] | LL 
ovme de La tete :Laper 0 cu MH ou He D Li à 


18, PE 


ENFUT 'Diametre nominal M D 


TE." ju. ls. . + 
DA EC HS À CA Da ES 
(ET SL Cri d'erreur Eaper Y: "iv 


VHC) "VU THEN 


vf 


LÉ Tableau de dimensionnement des vis ££ 


élorirus es 
1 ROIS) QC2S , 18ù 


mé TO 39 
CT) 


15 


Té 9 
#1 TO 16 
Get 


Initialisation de La table PÉFELÉLE 


ER 


A, FA LD LD 


saontinu &ivon 0 


XXE, 1414/1180 :FLerLRX 14 lé 180 :Fls 


48030 FOR T=Ai TO AZ STEF F1 

48040 X1=XC+RXCOS (T) 

48050 Y1=YC+RXSINCT) 

48060 X2=XC+RXCOS (T+F1) 

48070 Y2=YC+RXSINC(T+F1) 

48080 A$="FU"+STRS (X1) +", "4+STRS (Y1) +", FD"+STRS (XE) +STRS (VE) + 
“;FU;":GOSUB 50000 

48090 T=T+LDxF1 

48100 NEXT T 

48110 RETURN 

50000 '’£S£ÉLLLESEELELEEEEE CALL "oi" LÉLLSLLLLESESEEELELELEEEIEE 
££££ 

50010 CALL"21"CPNX,"w",8EX,A$,3,13) 

50020 FOR TEMF=1 TO 500: NEXT 

50030 RETURN 

50100 CALL'"'ci"(PNX,"w",6EX,A$,3,13) 

50110 FOR TEMP=1 TO 8O0:NEXT 

50120 RETURN 

51000 ’ f£LESLLELLELLELELELEE Entree des donnees DATA ££££££LSLILLE 
f£££ 

51010 DATA Fr "ATARI CT AK 

51020 DATA 12,14,16,18,20,22,25,28,30,35,40,45,50,55,60,65,7 
0,75,80,85,90,100,110,120,130,140,150,160,170,180,190,200,22 
5,250 

51030 DATA 2.5,3,4,5,6,8,10,12,14,16,18,20,22,24,27,30,33, 
51040 DATA .-85,:5,,7,:8,1,1:25,2:5,1:75,2,9,2,5,2,5,2,5, % 
3.5,3.5,4 

51050 DATA 5,5.5,7,8,10,13,17,19,22,24,27,30,32,36,41,46,50, 


51060 DATA 1.7,2,2.8,3.5,4,5.5,7,8,9,10,12,13,16,15,17,19,21 


51070 DATA 4,5.5,7,8,10,13,16,18,22,24,27,30,33,36,,,, 
51080 DATA 2,2.5,3,4,5,6,8,10,12,14,14,17,17,19,,,, 
51090 DATA 1 


PORC ARR OO EE LE LEE 


51100 DATA: 11,188 hs 2 2300 
51110 DATA PDT ÉR uses 

51120 DATA 11,12,16, 16 sas rs 

51130 DATA 11,12,14,16,18,,,,,,,,,,,,, 

51140 DATA 11,12,14,16,18,,,,,,,,vv00n 

51150 DATA 11,12,14,16 118,22,,,,,,,,,, 
51160 DATA ,12,16, 16, 18 AR ET D ns 

51170 DATA ,12,14,16 ADD D cris 
51180 DATA °12,16,16,18,22,26.,30, °°, 
51199 DATA ,,14,16,18,22,26,30,34,,,,,,,,, 
51200 DATA ,,14,16,18,22,26,30,34,38,,,,,,,, 


51210 DATA ,,14,16,18,22,26,30,34,38,42 


x HCETE dE, 4 


51220 DATA ,,14,16,18,22,26,30,34,38,42 46 50.,,,, 
51230 DATA ,,14,16,18,22,26,30,364 38 42 66 50 ,54,,, 
51260 DATA ,,,14,16,18,22,26,30,34,38,62,46, 50 ,5%,,, 
51250 DATA ,,,14,16,18,22,26,30,36,38,42,46,50,54, 6, 
51260 DATA ,,,16,16,18,22,26,30,34,38,42,466, 50 56.60.66, , 
51270 DATA ,,,,18,22,26,30,34,38,42,46,50,54, 60,66, 72, 
51280 DATA ,,,,18,22,26,30,34,38,42,66 50, 54 . 60. 66 , 72. 
51290 DATA ,,,,18,22,26,30,34,38,42 46 50 56. 60 66 72 78 
51300 DATA ,,,,,22,26,30,34,38,42,66,50,56,60,66,72, 78 
51310 DATA ,,,,,22,26,30,34,38,42,46,50,54,60,66,72,78 
51320 DATA ,,,,,22,26,30,34,38,42,46 50, 54,60, 66, 72,78 
51330 DATA ,,,,,,32,36,40,44,48,52,56, 60,66 ,72,78, 84 
51340 DATA ,,,,,,32,36,40,44,48,52,56,60,66,72,78,84 
51350 DATA ,,,,,,32,36,40,44,48,52,56,60,66,72,78,€4 
51360 DATA ,:,,,,,36,40,44,4B,52,56,60,44,7®,78,84 
51370 DATA ,,,,,,,26,40,44,48,52,56,40,66,72,70,84 
51380 DATA ,,,,,,,36,40,44,48,52,56, 60,646, 72.79.84 
51390 DATA ,,,,,,,,40,44,48,52,56,60,66,72,78, 84 

51400 DATA ,,,,,,,,40,44,48,52,56,60,66 72.78 84 

51410 DATA TE TT TN TA 

51420 DATA 


PATIO TANT PT SOLE 
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nu | Date : 
ASSEMBLAGE PAR VIS | 


juin 
AE 2 \N h 


Er, 


PROGRAMMES 


Programme : 
assemblage par 
vis H ou CHc 


cotation fonctionnelle 


Nous abordons, dans ce programme, la concep- 
tion assistée par ordinateur. 

Il consiste à réaliser le dessin d'assemblage de 
deux pièces par une vis. 

L'utilisateur choisit la forme de la tête, le 
diamètre et la longueur à partir du tableau 
dimensionnel dont l'étude a été faite 
précédemment. 

Le traceur dessine les trois pièces à partir des 
données précédentes, à l'emplacement voulu, 
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puis réalise l'ensemble monté en coupe en 
tenant compte des formes vues et des formes 
cachées. 

En vue d'une utilisation pédagogique, ce 
programme conduit par l'étude de deux 
conditions fonctionnelles où l'utilisateur carac- 
térise les vecteurs des chaînes de cotes mises en 
place. Les cotes correspondantes sont ensuite 
reportées sur le dessin de définition des pièces. 


PROGRAMMES 


Programme (T.T) 
Figure 3.25 

1 ‘le 16-07-85 

10 TARAUDAGE BGRGNE 
eo Programme TAFBOR 
finition des à ù 

ENACX, VX XF+D/ ,6XF 

FNE COX, ha (D/ 2e, Lx) x V4 OC EXD, Ré XP Xe € COX 4, &xF) x 
OXF+, 3x0 ZX XX CYR LOXE) 

FNCCX VheX-XR-D/24,46xF 

7 ENDEX, Ve (D /E, 4x 4 OC, xD, 6x) xx 4 CXRX CURE LOF) 
EXRA4D/ De, 6% FD X CYRAJ+LOXPE, ZXDe, 36XE)) 

100 GOSUR 45000: INITT4S5 

110 GOSUEB 42000: CARTT42 

120 GOGUR 40000: NOMTT40 

130 GCSUF 23000: Tableau de dimensionnement des vis 

140 GOSUR 22000:’ Choix de La vis 

142 GOSUR 26000: Controle des dimensions 

145 GOSUR 20000:'Mise en page 

148 AXEXN:AYEYN 

149 Abe"spe; LES; pa +GTRE CN) 4 STE CYNAL. + 1 0) 4 pl STRS CXND 4ST 
RE CYN- De 10 +" pus LE; M: GOGSUR 50000 

150 GOSUB 30000: Choix de la tete de vis 

1640 GOSUR 35000: Trace du covps de La vis 

165 CUREOK (1,1) : INFUT A 

170 BX KA: BVe vo: CASE 

175 Ate'spe; lt; pa"+CTRS CBX) 4STRSE CRY-TTYF-L.+4e 25) + pd, pros 
TRS BV+J+L04P+20) +; ilt;pu; ":GOSUR 50000 

180 GOSUE 36000 :’ trace du carter 

185 CURSOR CL, 1): INFUT A 

187 CreXF:CYaVvE: CAGE 

199 & E 38000:'trace du couverele 


195 CURS L, A): INPUT AS 

197 A$="spe L LES: pa" STRS CXM)+STRE CYM=-D- 10) 4, pd"+G TRE CXM) 4GT 
R$ CYM+L+LOXEF+30) + pu;lt; "GOSUR 50000 

200 EX2XM:BVY=YM4lL. J: CASE 

210 GOSUR 36000: trace du carter monte 


is CURSOR (1,1) : INFUT A 
CXeXM: CVeVM:CAGES 
AGGUER 38000 :! +1 es du couverele monte 
QURSOR CL, 13: INFUT A 
XM:AVYæVM 

UB X0000:GOSUR 35000:'trace de La vis montee 

242 QURSOR CL, 1): INPUT A% 
OUR LONGFILETE= :X 
4000 :'Trace des hachuves 

20 Abelepe, papa +STES CXMHD/ENESTRE CYMO/ EN EU DE TRE CXM+D+ 
351+",70;pu; ":GOSUE 50000 
251 Ate"spl; put+STRSE CXM+D4+Z5) +065, pA4+STRE CXM4D4ZE) 410,70, pra 
HSTRS CXM+D4R6) 4,75; ":GOSUR 50000 
294 CLE:FRIAT:INEUT Mrumero de La vciece (of nomenclature) ©" 


0 ,-1;:81,45,.5;,1E"4S6TRSE CN): GOEUR 50000 

"ASTRS (XM+D+ 10) +BTRS CYH4 CL. eJ)/) +", pd+STRS CXM 
3 M. :GOSUE SONO 

271 A$s'"spl: PU"HSTRE CXMAD4+ZS) +", 135, PAS TRE CXM4+D 4H) + 140, 
pU+GTRS CXMAD4+IE) +", 145 ; Mi GGSUR 50000 


275 FRINT:INFUT Mrumero de la riece MN 
276 NFEN 
60 Ake"spi;:1ER"4GSTRE CN) : GOGUR 50000 


200 Ate"spe;pa"+STRE CXM+D4+LOD) +STRS CYMALOI A" DAESTRE CXM4D+35) 
+",210,pu:":GOCUR 50000 
251 A 


d Spil; PUT+STRS CXM4D+35) #7, 208, pd'+ETRS CXM+D+3S) +", 210, 
DU"+STRE CXM#D4+B6D +" DS, :AOSUR 50000 


295 FRINT:INFUT "numero de la piece UPE 
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LIBRES TÉS CNY: GOGSUR 0000 
Li INPUT À 
O00:'trace de La sotation fonctionnelle 


DR OITYNES OR ITYFÉS THEN FRINT:FRINT "Choisi 
LM inferieure ":COURGSOR CL, 1): INFUT A$:GOTO 140 


LFOITYMEE 


F une Love 
29:00: 


TLHO X 
SOL #1] 
10170 
180 YQ 
AOLPO RET ! 

PAODOO ÉLÉRÉLÉL cotation fonctionnelle LÉFÉLLEREREE 
SLOLO CF CKM 
21015 XeLONG 
LOEB À E 


RXTT YF AL. 40 


a"HSTRE CEXCF #ETRE (VM4L-J) +", pd, pr'4STRS (2,5 
,DA'+ETRS (D/P+204 1, SXCFD +" 


D) HOTRE CYM4L.) + pd, prOMtETRS C-X 4.) 
1.5, ,1,0,0, "4STR8 COX ea) 4 pue M4STRSE COX 
ol 50000 

ROFIASTRE CYMI +", pd, pr STE Ca, RC) +", 0 


{ "oh" Fret Abe MEURTRE (és BRCFI 4 O0, pAM4STRSE Céx 
CAE 0 ; ":GOGSUR 50000 
CERCFIA4ETRSE CYM4lLe) +" pe, prO MASTERS CL +" 
3, pu0, METRE CC) /242) : GOSUR 50000 


CEE 
A 
21060 


des ootes 
SG HETRE CM) +", pd, pu O MASTERS (Lee X0 40, pur L 
3 4,1, ,puD, MESTRSE Ce Lex) 4) : GOSUR 50000 
SLOST GOGUR 21800 
AIIO0 IF FT$eUHU THEN SASLA/E ELSE SASC/E 
LLD Aie RDA MEETRS CEN+GÉD STRESS CYND + pd, pr GTR CAXCFI +", 
D'RUMRETRE CROP IÆGTRE Lee X) 4 pad TRE CBRCF ee SAHD ED 40 05: pu; 
SUE 350000 
Abe "EU M4ETRE CSA-D/E 41, BXCF)4STRE CL EX) +" pui, 3, pd-1,-3 
4 ,pul, 4, BAD M+STRE CL XI 4, purdl,%, pal, 3,1,-3, pu), "#STKSC 
5 . 30000 


THEN Age "pa "+STRS CXPFA4C/E4D/ SE) +6STRE CVFOD +", 
00/2) +",0;pu; ":GOSUR 50000 
LE CXF4D+E0) + GTR CE) + pp MS TRE CE, SXCFI +", 
Le} 4 RUE SXOFY4", 0; pu: :GOSUR 50000 

; ,pAL,3,1,-8,pu-1,3,pd0D, "4STRE 
“us, 1 24 POOMRSTRE COL) / 244) :GOSUE 350000 


21160 0 

1170 4 BA 4GTRE CXM- DE +E TRE CYMEL +4 RE 4, pp MASTERS C— 
20 net LEE ax)", pat+STRS (D/2+20 

 GAOEUR 50000 

F4, SD +STRS CV éer) + padprO"+STRE (4x 

5,3,1,0,0, MROTRE Camp x) 4" pus, MAGTRSE C— 

30000 


SLLOO Abe "pa"4sTRSE OC, SXCFIESTRE CYMAL D) 4", pd, pre STE CCF) 4, 0 
pu; ":GOSUE 50000 

00 A$e "pa "4STRE COPY AOTRE CYMEL FEU, DA, PRO CESTRE Ca xp. p) 
pu-1,2,pdl,-3,1,3,pu0, "4STRS CCéxPaJ) 242) : GOSUR 50000 

SUB 1500 

pa" GTRS CCF ESTRSE CYMAL JD 4" pd, prOMHETRS CL A4 4 
H Al,3,1,3,pu0, "4STRECCL-.) /8+2) : GOSUR 50000 

à O GOGUR 21500 

M4 Az "pa" 4OTRE CRRCFIAGTRE CVM) +", pd, prOMÆSTRE CL) + put, 
3,pdi,3,1,-3,pu0, "4STRS C-L/242) :GOSUR 50000 

21250 GOSUR 21500 

21860 Age"spe; pa'+ETRE CXN4D/2—, XP) +S TRS CYNELOI EN RApr Me STRE 
SA+4RCOF D 24, 6X F0 +" 0; pu; GOSUR 50000 

DADVO APE" EUMEETRE C—, SROF-L) 4" TE pal 2,1, ,pu-1,3,pd0,"4ST 
FR CL) +"purt,3,pdl,-3,1,3,pu0, MHSTRECL/E42) : GOSUR S0000 
212680 GOSUR 21500 

M1P00 At "pa "+GTRSE CXQ+D+PO0) 4STRE (VO) +", pp MESTRE CE, SKXCFI 4", 
Q, pu, "GTR GiréxEr +", pdttSTRE C2, SXCF-20-D/2)+%,0;pu; ":GOSU 
E 50000 

SAXO0 At "pu" eSTRS CD/BA4POHPROCF 1) 40,23, pd1,3,1,-%, pu-1,3,pd0 
URGTRS C4 xr +" pu-t,3,pdi,-3,1,3,pu0, M4STRS CCI x) EE) : 
GOSUR 50000 

21310 GOSUR 21500 

100 Abe"pa"+tOTEE CXFA4DA4RPOABROF 41) 4STRE (VF Le) 2) 4 lbs Ba 
ETES NF: GOSUR 50000 

1420 RETURN 

21500 ’ Identification des <otes 

21510 CLS:PFRINT:FRINT "Un maillon de la chaîne est trace, IDEN 
TIFTIEZ-LE : exemple:soit une condition Jd, 
un maillon de la piece 4 sera identifie dé" 

21520 INFUT IC 

à Age "IR"4+ICS: GOSUR 50000 

RETURN 

!LÉLEÉLEEÉEÉEEÉEEESEEEChOIÏX de la vis 

els 

0 FRINT "Choisir la forme de la tete de vis puis a l'aid 
e du tableau,donner le 0 M,et la longueur L' 

INFUT "Forme de la tete :taper H ou CHe PA ET 


INFUT "Diametre nominal M CRE 
INFUT "Longueur totale L DL” 
Determination de l'indice T 

FOR Iz5 TO 39 

IF ACI)=L THEN T1sl:1=39 

NEXT I 

‘Determination de l'indice Jet de F.A,B,C,K 

FOR Jel TO 18 

IF BCGDeD THEN disJ:J#1€ 

NEXT .) 

Ji 

FaC(1, JD: ASC, JD: BEC CS, J):QmC (4, Ji :KeCCS, 4) 
Determination de X 

JeJl:TeTi 

XæQ CL 4) 

PÉINT "Trace d'une VIS MFTE" Minime 
INFUT "S'il n'v a pas d'erreur taper ÿ: ve 

IF Y#<C)"Y" THEN GOTO 22020 | 

RETURN 

ÉÉFÉCÉÉESÉESÉCEEET Tableau de dimensionnement des vis 
Entre des donnees 

DIM AF(S) ,A(39) ,BR (18) ,C(C38 18) 

FOR Te1i TO 5 

READ A$CT) 

NEXT T 

FOR I=é4 TO 239 

FEAD ACT} 
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a Q : 

24020 

Da 030 
240 


s de hachuvres entre secteurs 
INT (DEN/ 5) : DH: 5 CDEN-5%0) 

À Be (DEN 5x0) 
: ENT CDEN/5N OH 7e CDEN- 5x0) 
A+ EME 
4 EXD, 26éXF : QuINTDEN/5) : DH1L1=5- CDEN- 5x0) 
+ 6x QE INT CDEN/ 5%: DHeSe CDEN-5%x0) : DHP=DH11+D 


20 QE INT CDEN/ 5) : DHL S- CDEN- 5x0) 
LNTCDEN/5) :DHiézñ- CDEN-5%x0) 
ex 2O QE TNT CDEN/ 5): DH15E=S- CDEN-5%x 0) +DH13 


EXD 4, apte Vie VE Ve VER Ja LOF 4, xl, 


41000 
HOUSE: Ve VER Vie VER 4 LORE 4 3x De 7 


41000 
mn Vie VERS VE VAR, S 


HOUR 41000 
KRED4LS, SVT VER EVE VERRE, S 


HOSUE 41000 
XFeD/ Ex 6x, Vie VRAI : Ve VR + OxF +, 3x0 


41000 
RE DA LS, eV RE Ve Ve 4 OF + BD 


440 XieXR: XPeXRAD/e, GX: Ve RE Je LOS 
&xF 
24850 TeDH10 

24860 DEF FNFILCX, Y'eFND OX, Yi 

24870 DEF EFNFECX, VieFNCCX, v) 

24880 GOSUE SpEes 

24 XLEXR-D-19, 5: XPeXR4D4LS Si VA VRA4 JA TOP +, xD, Dép, BV 
BeVR4J4LOXPFALS 

La 900 TeCHAT 

B4910 GOSUR 41000 

4920 RETURN 

25000 ‘Hachures du couverele 

25010 XLEXS-D-20: XPEeXS-D/2-0/20-,5:VlevVS4+, Va VE4L ee 

25020 Ix0 

25020 GOSUR 43000 

25040 X1=XS4+D/24+D/20: XPmXS+0D4+19,5:VleVe+4, Give YS+l ee, S 
25050 TeDH1Z 

25060 GOSUR 43000 

26070 XieXE-D-P0:XPeXGe0/ Den /5e dt: Vie VE" D/64, SV Ve 

25080 IeDHlLé4 

25090 IF FTé="CHe" THEN GOSUR 43000 

25100 X1eXS+0/24D/5:XE2eXS4+D419,5:VlievS- DD /54, Si VE 
25110 IeDH15 

25180 JF, ESS CRE THEN GOSUB 43000 

25130 


VE 4 LOF, TD, 3 


Lons 
vos donnees, Xe0'":QURSOR CI 


ÉffControle des Aimer 
l INT "Verif 
):ENEUT A: GOTO 140 
“Es AE "THEN GOSUE 27000 


FOF: Iré TO 39 

IF ACD)'EeL THEN Ciel 

NEXT T 

IF CLOL THEN FRINT "Werifiez vos donnees L non normal 

i :QURSOR CL, LD: INFUT AB:GOTO 140 

26060 FOR Jel TO 18 

26070 IF BCJie)D THEN Cl 

6080 NEXT J 

PENSS IF CPOL THEN FRINT "Verifiez vos donnees D non normal 

me": QURSOR CL, AL): INPUT AH: GOTO 140 

110 RETURN 

27000 Controle CHa 

S/NI0 IF Ce] THEN FRINT "Verifiez vos donnees, Ce0'e CGUREGR CI 

,LOCINEUT AY: GOTO 140 

a7020 sans 

30000 

30010 

0080 

300%0 

1000 Face € la tete H 

AILO1O LArA/COS CH, 1416/6) : XERGOR CCA/ 4) AB CA / 8) ADD: LFELA/Ee CA 

d KA) / TAN C3. 1416/4) 
Ass pi, pate STRE CAX ELA ZE) +STRSE Apr M4 ET 

CeLA BEL) SGTRE CA/ 48 XD RETRE CPXLE Fi < fatLF)+s 

TR# (A/4- XD EU D  MAOTRE CP 4x EX D) 4STRS (LA) +", DO. "#OTRE C -R4+An 

4x3) : GOSUB 50000 

21080 Afe"spl; pa "4ETRE CAX4LA/ 2) +6 

TRS CAXHEMLA/ ER) +5 TRS AVR + A 4 EM GE 

DA eé naterSTRE CAX-3xLA/E D +STRÉ CAY 

50090 

TAD4O fe pa MHETRE CAXAL A 40 HE TRE CAD 4 pl 

RE, pu OS TRS CL A0 40 0, pad, pr, MaSTRSE -f, 

JE 00 

41050 RETURN 


la tete de vi 
HU THEN GOSUR Z2000 
THEN GOSUR ) 


CAV-B+A/4-X2) +" 


EE 
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32000 ‘trace de la tete CHe 

32010 A$="spl;pa"+STRS$ (AX) +STRS (AY) +", pdpr'"+STRS$S(C/2)+",0,0, 
+STRS (-9xD/10) +"; ar "+STR$(-D/10)+",0,-90,pr"+STR$(-C+2%xD/10 
)+",0;ar0,"+STR$(D/10)+",-90,pr0,"+STR$(9xD/10)+STR$(C/2)+", 
0;pu;":GOSUR 50000 

32020 K1i=K/C0S(3,1416/6) 

32030 A$="sp2;1t2,1;pa"+STRS$ (AX+K1/2) +STR$ (AY-D)+",pd,prO,"+ 
STR$ (2#D/3) +STR$C-K1)+",0,0,"+STR$(-2#D/3) +"; pu"+STRS (K1/4) + 
",0,pd0,"+STR$(2#D/3)+";pu"+STRS$ (K1/2)+",0,p4d0,"+STR$S(-2xD/3 
)+";pu;":GOSUR 50000 

32040 RETURN 

35000 ‘Trace du corps de la vis 

35010 A$="spl;1lt;pa"+STR$ (AX+D/2) +STR$ (AY) +" ,pd,prO,"+STRS (L 
— 6XF)+STRS (—, 6x F)+STRS C, 6XF) +STRS (-D+1.2%XF) +", OU+STRS (—,6%xF 
)+STRS(—,6XF) +", O"+STRS (-L+,6xF) : GOSUE 50000 

35020 A$="pu0,"4+STRS$ (L-X)+",pd"+STRS (D) +",0; pu0, "+STRS (X—, 6% 
F)+",pd"+STR$(-D)+",0;pu;":GOSUR 50000 

25030 A$="S5p2; pu"+STRS$ (.6XF)+STRS (.6%xF) +", pd0,"4+STRS (-X)+STR 
$C-,6XF)+STRE (-,6XF) +"; pu"+STRSE (D)+",0,pd"+STRS (—,6XF) +STRSE ( 
.6XF)+",0"+STR$(X)+";pu;":GOSUE 50000 

35035 FOR TEMPFz1 TO 5000 :NEXT 

35050 RETURN 

36000 ’trace du CARTER taraude 

36010 A$="spi;lt;pa"+STR$ (EX-D-20)+STR$ (BY)+",pdpr'+STRS$ (D/2 
+20)+",0;pu;":GOSUB 50000 

36015 IF CAS=1 THEN A$="spl;" ELSE A$="sp£;1t2,1;":GOSUR 500 
00 

34020 AQé="nAd"4+STRS (D) +", Q:nu;":GOSLIR SNnnNn 

36025 A$="spl;lt;pd"+STR$(D/2+20)+",0,0,"+STRS$ (J+10xF+15)+"; 
pu; ":GOSUE 50000 

36030 GOSUR 37000:'’trace run number D(rnd) 

36040 IF CAS=1 THEN A$="spl;" ELSE A$="sp2;":GOSUR 50000 
36050 A$="pa"+STRS$ (BX-D/2+,.6%xF) +STRS$S (BY)+",pd,prO"+STRS (J)+" 
,PU"+STRS$S (D-1.2%xF)+",0,pd0,"+STR$(-J)+";pu;":GOSUR 50000 
36060 A$="sp1;pu0"+STRS$ (J)+",pd0,"+STRS (10xF) +STRS$S (-D+1,.2xF) 
+",0,0,"+STR$(-10xF)+",pu0, "+STRS$ (10XF) +", pd"+STRS ((D-1,2%XF) 
JED4STRS CCD 1, DPF X, ZT) 4STRS C(D-1,DXF) /D)4+STRS (— (D-1,2xF)%x,3) 
+";pu;":GOSUR 50000 

34080 A$="pu"+STRS CC. 6XF)4+STRE C—-EXF) +", PAM4STRSE C-D) +" ,0; pu; ": 
GOSUR 50000 

34090 A$="Spe; puO"+STRS (—-J-4xF) +", pd0, "4+STRE (J+4xF) +OTRSE OC, x 
F)+STRSC.6xXF) +", pu"+STRS (D-1,2xF)+",0,pd"+STRSEC.6XF) +STRE C—, 
6XF)+",0,"4+STRSC-J-4XxF) +"; pu; ":GOSUR 50000 

37000 ’trace de rnd 

37010 RETURN 

38000 ’trace du couvercle 

38010 IF FT$="H" THEN GOSUE 38100 

28020 IF FT$="CHa" THEN GOSURB 39000 

38030 RETURN 

38100 ’trace du couvercle (tete H) 

38110 A$="spl;lt;pa"+STR$ (CX-D-20) +STR$ (CV) +", pdpr"+STRS$ (EXD 
+40)+",0,0,"+STR$(L-J)+";pu;":GOSUR 50000 

38120 IF CAS=1 THEN A$="pd"+STRS$ (-2xD-40)+",0;pu;":GOSUR 500 
00 

38130 A$="pa"+STR$ (CX-D/2-D/20) +STR$ (CV) +"; pd,prO"+STRS (L-.J) 
+",pu"+STRS$ (D+D/10)+",0,pd0,"+STR#(-L+J)+";pu;":GOSUR 50000 
38140 RETURN 

39000 ’trace du couvercle (tete CHa) 

39010 A$="spl;lt;pa"+STRS$(CX-D-20)+STR$ CCY-D-D/5)+",pdpr"+ST 
R$ CAXD+40) +",0,0,"4+STRS$ (L-J+D+D/5)+"; pu; ":GOSUR 50000 

39020 IF CAS#1 THEN A$="pd"+STRS$ (-2xD-40)+",0; pu; ":GOSUR 500 
00 

39029 A$="pa"+STRS (CX-C0/2-D/5)+STR$S(CY-D-D/5)+",pd,prO"+STRE 
(D+D/5) +STR$ (C+2xD/5)+",0,0,"+STR$SC-D-0/5)+"; pu; ":GOSUEB 5000 
(a) 
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29040 A$="pa"+STRS (OX-D/2-D/20) +STR$(CY)+",pd,pr0,"+STRS (L-—.J 
)+",pu"+STR$ (D+D/10)+",0,pd0,"+STR$(-L+J)+";pu;":GOSUR 50000 
39050 KETURN 

40000 ’ NOMENCLATURE A3 

40010 ’Frogramme NOMTT40 

40020 INFUT “Nbre de pieces reperees :";k 

40030 M=(R+1)x8+2 

40040 A$="spi;pa213,40,pd,pr,0,"+STRS$(M)+",puisS,"+STRE (Hs +" 
,P4d0, "+4+STRS$ (M)+",p1115,"+STRS$(-M)+",pd0, "+STRS$ (M)+",pu100,"+S 
TR$ C-M)+",pd0, "+STRS (M) +", puz0, "+STRS (-M)+",pd0,"+STRS CM) +"; 
mu,":GOSUE 50100 

40050 FOR I=1 TO R+1 

40055 IF 1=1 THEN A$="spi" ELSE A$="sp2":GOSUE 50000 

40060 A$="pa213, "+STRS$ (40+1%x8) +"“pd,pr190,0;pu;":GOSUE 50100 
40070 NEXT I 

40080 FOR TEMF=1 TO 10000:NEXT 

40090 A$="pa218,43,pd;si.2,,.3;di1,0;1bRep":GOSUE 50100 

40100 A$="pu233,43,pd; 1bNb “ : GOSUE. 50100 

40110 A$="pu268 43 pd;1bDesignation": GOSUB 50100 

40120 A$="pu348,43,pd; lhMatiere":GOSUE 50100 

40130 A$="pu378,43,pd;1b0Observ":GOSUR 50100 

40140 FOR I=1 TO K 

40150 A$="pu218,"+STRS (42+1%8) +"; LD"4STRS CI) : GOSSIP. SN1NN 
40160 NEXT I 

40170 FOR I=i TO K 


40180 CLS:FRINT" CARACTERISTIQUE DE LA FIECE NUMERO ":;I 
40190 FRINT:INFUT "Nbre de pieces(s) :";N 

40200 INFUT "Designation :":D$ 

40310 INFUT "Matiere "M$ 

80220 INFUT "Observation :":0$ 


40230 A$="pu233, M4STRSE (42+I1X8) +"; LD'4STRS CN) : GOSUB 50100 
40240 A$="purées, "+STRS (42+Ix8) +"; 1b"+D$:GOSUE 50100 

40250 A$="pu348, "4+STRS$ (42+Ix8) +"; Lb"+MS: GOSUP 50100 

40260 A$="pU378, "4+STRS (42+1xB) +"! 1b"4+08 : GOSUP. 50100 

40270 NEXT I 

40280 RETURN 

41000 ’ Trace des hachures en continu 

41010 ’Frogramme HACHTT41 

41020 ’2:f programme DDFTT ou HACHTT44 

41030 ‘Donner les Valeurs de x1,x2,y1 et y? (coordonnees du 
rectangle hachure) 

41040 ‘donner la valeur de I (desalage des hachures en mn) 
41050 ‘puis faire GOSUPB 41000 

41060 FAS=S:ESP=,5 

41070 FOR H=X1+V1 TO X1+Y1+(X2-X1)+(Y2-V1) STEF FAS 

41080 A$="pu;1t;":GOSUR 50100 

#1090 FOR AX=X1 TO X2 STEF ESF 


41100 AY=-AX+H+I 

#1110 BX=AX+ESF 

41120 BY=-PX+H+1I 

41130 IF BY(Y1 THEN 41170 
41140 IF AY)VE THEN 41160 


#1150 A$="pa"+STRSE CAX) +STRS (AY) +" pAM4HOTRE (BX)4CTRE EU) 0 
OSUR 50100 

41160 NEXT AX 

41170 NEXT H 

4&1180 RETURN 

42000 ‘trace du cartouche AT 
42010 ‘programme CARTT4Z 
42020 FRINT'"'spi=p,7 noire 
42030 A$="spli;pu407,40 PALIN, 40,218, 0,7 


ge TU 


42040 A$="pué0z, 15 PdBÉS De: Q ; ‘SOEUR 50000 
42050 D 4: ":GSOSUE 50000 
&2040 : 1 ire “":GOCUR 50009 

1:070 AS="pu367, 14, RASE 40. pus": ROGUE 50090 

090 Afr"nu217,74 , 54248 ,74,748,40;:pu;":£0SUB 50000 
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47090 A$="spl;0u368,%3:si.7,1;:di1,0:1bN":GOSUP 50000 
47100 A$="p2277,13;cil,pu;":GOSUB 50000 

42110 FOR TEMF=1 TO S5O00:NEXT 

42120 A$="sp2;pa373,34;si,25,.25;d4i1,0;1bClasse“:GOSUB 50000 
42130 A$="pu378,26; IbNOM":GOSUE. 50000 

42140 A$="pu376,18; lbDate":GOSUP 50000 

42150 A$="pu215,27;si.2,.3;1bEchelle:1/1":GOSUP 50000 

42160 FOR TEMF=1 TO 2000:NEXT 


RMQUDÉT Zéiei.05,.28:1bL.E.F. A'HENIN-BEALIMONT ": SOL] 


5. 26;1t5;pdîñté4,36;pu;":GOSUR 50000 

32 ,pd4li8 40; pu; ":GOSLR 50000 

TO SONO:NEXT 

38,36;1t;ci3;c<il1.5;pu;":GOSUR 50000 

TEMF=1 TO SONOD:NEXT 

: A$="pazt0,34,5,pd230,933,230,29,220,37.5,220,14.5;pu;": 
GOSUR 50000 

&EE24a0 INFUT'TITRE DU DESSIN ";P# 

42250 NELEN(E#) 

&2260 IF N)14 THEN C=.7 ELSE C=1 

42270 A$="pRU"4STRS (2BE-NXCXS) +",7; Si"4+STRS(.7XC)4+STRSE (CD +"; 4 
11,9;1b"+2$:GOSUE 50000 

42280 RETURN 

42000 ‘Trace des hachures en continu 

43010 ‘’Frogramme HACHTT41 

43020 ’2f programme DDFTT ou HACHTT44 

43030 ‘Donner les valeurs de X1,X2,Y1 et Y2 (zcoordonnees du 
rectangle hachure) 

43040 ’ donner la valeur de I (decalage des hachures en mm) 
43050 ’puis faire GOSUE 41000 

4#3060 FAS=S:ESF=,5 

43070 FOR H=Y1-X1+(Y2-V1) TO Y1-X1-(X2-X1) STEF -FAS 

43080 A$="pu;lt;":GOSUR 50100 


FOR 


43090 FOR AX=X1 TO XE STEF ESF 

43100 AY=+AX+H-I 

43110 BX=AX+ESF 

43120 BY=+PX+H-I 

423130 IF BY<Y1 THEN 43160 

43140 IF AY)VE THEN 43170 

#3150 A$="pa"+STRS CAX) +STRS (AV) +", pA"+STRSE (BX) +STRS (BY) :E 
OSUR 50100 

#3160 NEXT AX 


43170 NEXT H 

43180 RETURN 

44000 ‘Trace des hachures 

44010 ‘’Frogramme HACHTT44 

44020 ’2f programme DDFTT 

44030 ‘Donner les valeurs de X1,X2,Y1.,,Y2 

44040 ‘Donner la valeur de I(dersalage des hachures en mm) 
44050 ‘definir FNF1CX,Y)=FNACX, V) {oi B,C....) 
&4060 ‘definir FNFT(X,Y)=FNE(X, Y) Cou € 
44070 ‘puis faire GOSUP 44000 

44080 FAS=,25:7=0 

44090 FOR Y=Y2 TO Y1 STEF -PAS 


&4100 FOR X=X1-25+1 TO X2 STEF 5 

44110 F1=FNF1CX,Y) 

4&4120 IF F13=0 THEN Z=X:X=X2 

44130 NEXT X 

44140 FOR X=Z TO X2 STEF 5 

44150 2=FNFECX, Y) 

44160 IF F2)=0 THEN X=XE:GOTO 44180 

44170 A="pUMESTRSE COX) 4STRSE (VI +, PAM+STRS (XD +STRE CVI +; 
pu;":GOSUR 50100 

& 4180 NEXT X 


&4190 T=I+FAS 
44200 IF 1725 THEN 150 
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3000 de Lan LE 
a 5010 ‘ Vamme CINITTAS 

45087 € FN 

CRIE) CALL"p1 sg": CALL'p1 se": CALL'RI 
4 S0é lt CALL Mrs M CALL som:,4800,,,,,,1084 

on 'o",8E%) 

:160,0,164158,11040; 800, 40%, 0,275: 
0,056" :GOGUB 50000 


45050 CALE." 
450460 
0,4 
45070 
50000 ‘CALL "ei" 

50010 CALL "ei" CPNX, Mu SEX AE, 3,1%) 

FOR TEMFæe1 TO LOOOD:NEXT 

ÉETURN 

CALL ei" CPNA, Mu SEX AE, 3, 17) 

SOLLO FOR TEMFæl TO SNEXT 

SOLEQ RETURN 

S1000 ‘ÉÉÉÉLECÉLSELESESÉENtreese des donnees DATA 
31010 DATA D RCE 4 

DATA 1E2,14,16,18,20, DR DS DE :30,385,40,45,50,55 
80,85,90,100,110,120,130,140,150 160,170 ,180 1 


gu0,0,pdéfti 


DATA 2,5,3%,4,5 
DATA .45,,5,,7 
$,9,39,4 

51210 DATA 5,5.5,7,8 
34 


sen DATA 1,7,8,8,8,3,5,4,5,5,7,9,9,10,12,13,14,15,17,19,®1 


És $« 
LA 


10,123,17,19,28,284, ,32,36,41 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


s., SENTE 27,30,33,36 
] + Le 
ati Le : 4,17,17. 19,5, 
HIS TIIIII IIS 


ARE EE EEE EE ENT: 
Éd LA 
LE, 14, oo 


.18,14,1é, 


ÉRELES ES FLEX À 


51290 DATA 11,18 14. té, ‘18 
51300 DATA 11,12 14.16.18 
51310 DATA 11,12,14, 
1320 DATA ,15,14,16, 
51330 DATA ,1®,14,16, 
51340 DATA nie 14 
DATA : 

DATA 
DATA 
DATA 
DATA. ,16,1 
DATA , ,,1l6,14, 
DATA 
DATA 
AT A 
DATA 


S 8 DOTE EEE D 


HITS IS: 


DATA 
J DATA 
00 DATA 
3 GATA 
DATE 
CAT 
DATA 
DATA 
DATE 
DATA 
DAT 
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Programme : 
simulation 
d’une unité 
d'usinage 

à trois vérins 


Ce programme permet de visualiser, sur écran 
graphique, le fonctionnement d'une chaîne 
d'usinage «transfert », en l'occurence, une unité 
de perçage. 

Le mécanisme constitué de trois vérins dont la 
représentation à l'écran est schématique et 
cinématiquement minimale, fait apparaître, sur 
un exemple simple, l'usinage automatique d'une 
pièce, depuis sa réception jusqu'à son 
évacuation. 

Ce programme fait appel à la plupart des notions 
de graphisme vues dans ce livre. Il est nécessaire, 
néanmoins, de posséder une maîtrise de la 
programmation de base ainsi que les notions de 
déplacement de figure. 
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L'objectif de ce thème est de permettre à l'élève 
d'être sensibilisé sur les procédés d'usinage 
automatique. Il pourra en dégager un fil 
conducteur propre à tous ces systèmes automa- 
tiques lui permettant d'analyser la suite logique 
des différentes phases de travail. 

La représentation des vérins étant schématique, 
ce programme ne fait pas apparaître leur apport 
énergétique (pneumatique,  hydraulique...). 
L'étude de ce thème peut donc se poursuivre par 
la classification de ces vérins suivant leur 
fonction. 

On pourra étendre l'exploitation du programme 
en envisageant le câblage du circuit reliant les 
vérins entre eux. 


Figure 3.26 


Figure 3.27 


Figure 3.28 
Figure 3.29 


Figure 3.30 
Figure 3.31 
Figure 3.32 
Figure 3.33 


Figure 3.34 
Figure 3.35 


Figure 3.36 


Figure 3.37 
Figure 3.38 


Figure 3.39 


Figure 3.40 


Figure 3.41 
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Arrivée de la première pièce dans la goulotte de chargement. Arrêt de cette 
pièce par le vérin V1. 


Descente de la première pièce vers la table de travail, après ouverture du 
vérin V1. 


Mise en place de la première pièce sur la table de travail. 


La seconde pièce arrive dans la goulotte de chargement alors que la première 
se prépare à être déplacée vers le vérin V2. 


La première pièce est déplacée par V2 vers une position intermédiaire. 
Le vérin V2 se retire dégageant ainsi l'emplacement de la seconde pièce. 
La seconde pièce arrive sur la table de travail. 


La seconde pièce s'apprête à être déplacée par V2 alors qu'une troisième est en 
place dans la goulotte de chargement. 


Le vérin V2 déplace la deuxième pièce jusqu'au contact avec la première. 


Le vérin V2 continue sa course et amène les deux pièces jusqu'à une seconde 
position intermédiaire. 


Après l'arrivée d'une troisième pièce, le vérin V2 les pousse jusqu'à ce que la 
première soit mise en position de perçage. 


Retrait du vérin V2. La quatrième pièce arrive sur la goulotte de chargement. 


La quatrième pièce est tombée sur la table. La butée de mise en position 
apparaît au contact de la première pièce. 


V2 pousse la quatrième pièce contre les trois autres, ce qui permet, avec la 
butée, de les maintenir en position lors du perçage effectué par le vérin V3. 


L'opération de perçage est terminée, V3 remonte et laisse apparaître le perçage 
dans la première pièce. 


La butée disparaît, V2 continue sa course évacuant ainsi la première pièce et 
mettant la seconde en position. 

Le cycle de travail est commencé et nous nous retrouvons à la phase qui 
correspond avec la figure 11. 
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Fig. 3.26 


PROGRAMMES 


3.40 


| .7 


LT Cm | | L 


Fig. 


Fig. 3.36 


Fig. 3.41 


Fig. 3.37 
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Programme (E.G.) 
Figure 3.42 


1 7 le 86 Juillet 1985 


10 ÉFÉFFÉFFEFEÉLCEEEELELELELEE UNITEGU LÉÉÉLÉESÉLLLESELELLELE 


ELLE 


30 SCALE 0,€#80,0,136 

4 COLOR 1,0:CLS 

50 INFUT "avance av"; AV 

60 CLS 

70 ‘Mise en place des verins 
80 CXeé0D:0vVeR7 

90 XB=87:VB=70 

100 AX:177:AVx65 

119 GOSUR 40000:'TABLE 1 


120 GOSUR 10000:GOSUR 11000:GOSUR 12000:GOSUE 13000: 


130 GOSUR 20000:GO0SUB 21000: GOSUR 22000: GOSUE 23000: 
140 GOGSUR 30000: GOSUR 31000:GOSUR 32000: GOSUR 33000: 
150 GOSUR 40500 :°TAPI a 
160 DBx15:GOGUR | 
BOSUR 43500 : 
GOSUR 25000: pavot VE 
DEF&32 : GOSUR 41000!’ deplacement de la piece 
BOSUR 44500 
XF=79,5:VFæ27: COLOR 2,0: GOSUR 43000 
GOSUR 24000 
e30 BOSUE 43500 
Ë :D1#10,5:GOSUR 14000:’sortie VI 

Les: GOSUR 44000: Depl piece + piston 
15000 : rentree VI 


ue Ve 


fermeture VE 


260 GOSUR 4 4500 
300 GOSUE. 43000 
310 GOSUB 24000 
320 GOSUE 43500 
340 DE. É D,5:GOSUR 14000 
: GHOSUR 44000 
É, : UE 
5000 


! 


4 500 
43000 
É+000 


140030 
+4 [100 


4e 500 
43000 

" 4000 
GOSUR 423500 

c "OL o 3,0: GO0SUE 


46000 :'tutee 
QSUR 14000 


es: GOGUR 34 
BOGUR 35000: remonte: 


€ du foret 
hi foret 


AS" Depl piston + 2 pieces 


9300: "Depl piston + 4 pieces 


nee a veau ae ve ne ae ae me ae ee me [E ) gramme UNITE D’ USINAG Eine ces ce vue me see vue ne oo oo 


VI 
PUR 
AT: 


& 4000 
mené: GOGSUR 46500: deplacement 4 pieces 


360 COLOR 0 
5909 DELE=0: DFI 
TO GOTG 460 
} END 

D) ÉÉLLÉLÉLELSELLELE SOUS-PROGRAMMES LÉLELELLELELELLELELLE 


te] 


LELR 
19000 ÉÉLCLSELE VERIN FOUSGELR CUI) LLLELLSEEE 


LOOLD 


10020 COLOR 8,0 

10030 LINE (OX-,5,0V42,5)-C0X+,5,CY+10),,BF:LINE (CCX+,5,CY+1 
D)-(0X-59,5,0V+9),,BF:LINE (CX-59,5,C0Y+10)-CCX-58,5,CV-10),, 
BF:LINE COX-58,5,0Ÿ-10)-(CCX+,5,CY-9),,BF:LINE CCX+,5,CY-9)= € 
CX=,5,0v-2,5),,BF 

10040 RETURN 

1 1 {) {j (a D: is ue: tés ain date dns sois ant im onde ue ie main +: race Pa 1 P 1 & À D Fr som mes mme vo ae nee anne une ee ave vor one mme anne ne nee ane one one ne ae mn one 


11010 COLOR GS ,O:LINE (CX-54,C0V-8)-CCX-53,CV+8), ,PF 
LIDZO LINE COX-53,0Y-1, 5) C0X+9,CV+1,5),,RF 
1 Q RETURN 


COLORATION CHAMBRE Lien men 


COLOR 1,0:LINE (OX-52, 042,5) (C0X-1,5,CV+8),,BF:LINE 
VB) COX-1,5,CV-2,5),,BF 
URN 


10 COLOR L,O:LINE COX-58, 0-0) CCX-56,5,0Y+8),,PF 


ISTON FOUSGEUR-MOUVEMENT ALLER eue meme 


14010 FOR IxDE1 TO Di STEF AV 

&QED COLOR Q,O:LINE COX+I1-56,0V-8) + CCX+I-56,CV+8) 

1 COLOR Z,O:LINE (CCX-534+7, CV-8) + CCX-5S3+T,CY+8) LINE CCX+ 
PT, CV, 5) COXHOAT,CV4+1, 5) 

14040 COLOR L,O:LINE (CCX-57+1I,C0V-8)- COX-57+1T,CY+6) 

LéO50 NEXT T 

LéDé( RETURN 

LHOOO eee eee pi SL OT POUSSEUT  CMOUVEMENÉ EE QU À eee ne neo ae ee me 
15010 FOR I=0 TO D1 STEF AV 

15020 COLOR %,O:LINE CCX-564D1-T, CVe8) + COX Hé+D1L-T, CV+8) 
15030 COLOR D,O'LINE COX-53+01-T, Cv COX HE+DIL-T, CV+8) 

“LL NE COX 5 4+D1e TT, CV, 5) CCOX-534+D1-T, CY+41, 5) 
COX 3+D1L-T, CV-8) + COX-S3+D1L-T, CV, 5) :L 
1,0) CCX-S34+01-T,CY4+8) 
CCX+P+DI-T, CV 1, 5) CCX+P+D1L-T, CY+L, 5) 


NEXT 
RETUFN 


LÉFELLE VERIN DE DISTRIBUTION CURE) LÉRÉREREREELRE 


SONDE 0 


a00 40 
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PROGRAMMES 


AIRIS) 


21010 COLOR 3,0 

210E0 FOR Ix0 5 42,85 STEF AV 

LOS LINE CXB-é  OL4T, VER, BOT) re An dns LINE CX 
bé QDé+t,YE hr C KP, Dé, Vleé, Clé T2) 


E1D40 NEXT TI 

21080 FOR Ie) TO LE STEF AV 

AIO6O LINE CXB445, ét, Vh+éé, Gé T)e CKB+éé, déeT, VR4ZS, 346-T) LT 
CXB+RS, él, Vh+éé, Gi T)e CKR+gé let, VB4ZS, 4 LT) 


I 
TURN 


51080 R 


Se010 FOR Ie TG DE STEF AY 
SeDE0 COL GR OL, O:LINE CXP+35,78- 
JL NE CXE +AS BE T, VR+a 


TL, VB+47, DB Te CXB+47, 08, VE 
LTD CXB+47, LE-T, VR435,83- 1) 


HOLD FOR Ie TG 47,5 STEF AY 

BAD COLOR L'O:LINE CXB+2Z, ét, YBtéé, ét) 7 CXE +ié SOIT, YB+é 
O8 TI: LINE CXPAHX 6e TC, Vhæéé, GOT) CXB+27 “I, VB+4 0, si rs 
HD LINE CKBa 40, Bet, VR4SE, PET) CKXPB+éé, 5 4 ST A HAE 4e T) :LTN 
E CK Bee 0), BST, V7, 0e Te CKPtéé HOT, VRACEX, HOT 

O4 NEXT 


24010 FOR Ix0 TO DE : 
GA COLOR D':LINE CXP 
#l? 

2400 COLOR D, OSLINE CKPA4RS  HéeT, VB, ét) CXBtéé, déeT VE4Z 
de M 

4 C4 COLOR ZX D LINE CKPRAUE ét Bad, Bee The CXPtéé, BéeT , VBA 
Hé T) 

S4050 COLOR L 


Fa 
COL T VE, GOT) KP, G9eT VBeé, O1 


QULINE CE HE, PET, VBæ+é 7 08e TT) CKBeé 7, O8 T, VBA 


ET UN 
D rer monte en etat a cute Re 0 ee GUJME RTE 


29010 FOR Txl 


Qé-DieTr, VE, BOAT) (KB, 29-084 

OX, &é 
Là 

9,0: L LINE CXPA UE ét T dé, Défi Te OK dé Séee 


+T ,VB+3 45. SACS 
al 


DEHT) ee CXB 4 4 4. 
DT) KP 4e 


RE TURN 
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O0 ÉÉLÉÉÉEÉÉCÉCELLELLRE VERIN PERCAGE  CUX)  LLELELEELELELES 


AO COLON &'O:LINE ( 5, Av) CAX- 11, A%-1), ,BF:LINE CAXx- ‘11, 
A 1) LC, AV é 0 LINE CAX- 10, AV+461)- CAX+LL, PY+60) ne 
LINE CA) AŸ+60) - CALE, AVAL, BFC LINE CAX+10, A%- 1) CAX42. S; 
Av, BE 

30020 
#1 0010) 


; 
3 
$ 
4 
ñ 
î 
4 
i 
4 
4 


ÿ 0: ee 9, AV+40)- CAX+9, AV4+37), ,BE:LINE CAX-1, 
€ ,AY+37), BF 


no a a an ae CA MERE ne co a ee a 


COLOR LS: LINE CAX-9, AV+50)- CAX+9, AV+41), , BF 


CHAMBRE 


SIOIQ COLOR L,OSLINE AXE, 5, AY41)e CAX-9 9486), ,RE:LINE CAX+E 
 AV+L) CAX49, Av+sé), BF 


4010 FOR Ie TG DE ST 
34020 


AV 
A PET 


COLOR O,CO:LINE CAX-8, AV+41= TD) CAX48, AV+4 del) 
34040 COLOR 1,0: LINE CAX-9,AV+41- ne. AV+4 LT) 
34050 ? D QG Go mo 


ADN COLOR A, QCLINE CAXe8 AVR 7e Te CAXEO, AVARZST) LINE CAX-1, 
The CAX+1,5,AV-20- “T) 
ahambres € 


MONTÉE QU FORE 


14 


,D:LINE (AX-®, AV+40-T 


me QALEE  ae  m oa  e  ae e 


BELINE (0,10) CAXe 4, 159, BF:LT 


me ÉUBALE Le aa a ue aa ee ae a ae aa 
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PROGRAMMES 


ÉMENT DE 


no [QG MB Em 


av 
10) CXP4T, VE+10) 
VELO) CXE ‘ yps1t 


XF, Fe LO) ee CKE RS VF410) ,,BF 


po [ga pu LEA GB ES À À 68 À pme me ee ee 


4 TO DFI STEF AV 
LL LTNE COX TTL es 


54, CV+67 
H+DL4T, CY+8) LINE 


a on ve Ÿ EN CS ED MES No me mo ae on een ea an oo 


QD ,CLINE(7E 8, Lé, 4) C106, 46,557, 


+ 


nm ee [Dep pi Bon + 


QG 6 mo 


FOR I 


TO DFE STEF A4 
ECCX4T+DL4DPLeSé, Ce 6e COXAT+DL+DF IS é, CV 


0 


Cv 


BOTLINE COX 540 IL + TA DEL, CV eg) ee COX E+ DL +DFAL+T 
+OL+DFLAT, CV, Se COX DLADFALET, CV+ TL, 50 
COSLINE COX S 7401 4DFA4T, CY-6) + COX-57+D14+DFL4T, QC 


4 


*] 


COLOR D, OLINE CXF+T4+DEI, VF 10) CXFT+DFA , YF+10) 

COLOR OC LINE CXF+ES4T+DFL, YF LD) ee CXPASS4+T4+DFL, VF+10) 
J,O:LINE CXFAT4DFL4Sé YF 10) CKF+T4+DFIL4RE, YF410) 
BOCLINE CXP+DFLES TEL, VELO CXPADFIL4SLET, VF4+10) 


Jap piston + 4 pigegges.s ee ee 


FOR TeDET GTEF AW 
COLOR 0,0 LINE COXAT4DL4DF IS, CV 8) COXHT4D14DF 1-56. CV 


SOCLINE COX SE 404 T4 DFA, CV 8) COX STD 4+DELAT. CY 
ED LE DELAT, CV TL, He COXEB4DLSDELET, CV 1, 5) | 
FO OL ,O:LINE COX 5740 L4DP LT, CVs) CCS 74D14DPALA4T © 


45550 


43390 
43600 


43610 
45620 
44000 
4 &010 
ETUI) 
44 500) 


46510 
46520 
+6) 

44530 


COLOR O,O:LINE CXFA4T4DFI, FLD ee CKFAT4DFI, YF4+10) 

COLOR 8, O:LINE CXP+B8S4+T4DFL, VF TO) CKPA4RS4T4DFL, VF+10) 
COLOR D, O:LINE CKXF4T4+DFI4+86, YF 10) - CXF4T4+DFI4+ESE, YF4+10) 
COLOR 2,0:LINE CXF+DPFLASLET, VELO CXFAaDFI4SLET, VF TO 
COLOR O,D:LINE CXF+ DFT+T.YF=-10)- 


F+T+DF14+52, YF4+10) 
COLOR SO:LINE (XF+DFI4+T+77, VELO) CXF+DFA14+T+77, YF+L0 


NEXT T 
RETURN 
Dioge Lo Le eme Di De de fe mms DITES de eds D De een 


LINE CAX+13,0vV-5)- CAX+35,C0Y+5),,PF 
RETURN 


eee Depl piston 4 piBopg-ee eee 


FOR IsDE1 TO DFE STEF AV 
COLOR O,O:LINE COX4+T+D14+DF1-56,C%-8)- CCX+T4D14DF1-54, CV 


COLOR 3,0:LINE(CCOX-532+D14T+DF1,CY-8)- CCX-53+01+DFT4T, CY 


+BY LINE COX+8+D14DFL4T, CV 1, 51e CCX+B+DL4+DFLAT, CY+1, 52 


46540 
Y+8) 

46550 
44540 
44570 
44580 
46590 
46400 
4 & 10 
446620 
+10) 

bé 30 
+10) 

44440 


J1,,8 
46490 
J) 

&6700 
46710 
a 47) 


COLOR L,O:LINE COX-574+D14DFI4T, CY-8) - CCX-57+D14+DFI4T,C 


COLOR O0, O:LINE CXF+T+DF1, YF 10) CXF4T4+DF1L, YF4+10) 

COLOR 2,0:LINE CXF+85+T4+0F1, YF-10)- CXP+2S+T+DFL, YF+10: 
COLOR O,O:LINE CXF+4+T4DFI486, VPF- 10) CXP4T+DF14+86, VF4+10) 
COLOR &,O:LINE CXF+DF1+5147, VE 10) CXF4+DFL4S LT, YF+10) 
COLOR O,O:LINE CXF+52+DF1L+T, VF 10) - CXP4T+DFIL+SE, YF4+10) 
COLOR 8 ,0:LINE CXF+DPFA1+r+77, VF-10)- CXF4+DF1+1+77, YF+102 
COLOR O,O:LINE CXF4784+DF1l4t, YF 10) CXF+784DFI4T, YF410) 
COLOR &S O:LINE CXF+DF14+T+868,5,VF-10)- CXF+DFISTI4+868,5, VF 


COLOR O,O:LINE CKF4+DF1+T492,58, VP-10)- CXP4DFIL+I+92,S 
COLOR Z,O:LINE CXF+4DFL+T+10R, VF 10) CKFADEL4T4102, YF4 


LINE CXF+DF14T+78, VF 10) CXF4DFL+I+103,YF4+101,,R 
NEXT TI 

FOR Jen TG 50 STE 
COLOR S,O:LINE (XF4+DF1+104, VF-10-J)- CXP4DFIL4+1E29, VF+T 0 


COLOR O,O:LINE CXF+DF 14104, VF4L0-0J) - CXF4DFI+189, YF4+10- 


LINE CXF+DF1+114,5,VF-10-.)- CKPF4DF14+116,5,YF-10-.0 
NEXT J 
RETURN 
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CHAPITRE 4 


SOUS-PROGRAMMES 


Initialisation 
de la table 
traçante 


PÉÉRRRER RES Tnitialiention de 


EL 


45010 Programme INITT4E 


A 


Figure 4.1 


— Ligne 45920 : Initialisation des erreurs. 


— Ligne 45939 : Appel des commandes spé- 
ciales RS, SC, CI. 


Commande pl : 

Au moyen de la commande PLOAD (pl), on peut 
appeler un programme utilitaire (commande 
transitoire) dans la zone de mémoire permanen- 
te ». Ce programme restera ainsi dans la mémoire 
de l'utilisateur jusqu'à ce que le système soit 
réinitialisé. C'est un gain de temps lorsqu'un 
programme est utilisé plusieurs fois. 


Commande RS : Routine en assembleur qui 
permet à l'utilisateur de communiquer, par 
l'intermédiaire de l'interface RS 232, avec des 
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A DE D 2 SD 


dispositifs compatibles. L'environnement de 
transmissions est fixé au moyen de la commande 
SCOMM (SC). 


Commande SC : C'est une commande qui 
établit l'environnement de transmission d'un 
port de communications RS 232. La routine de 
communications du RS 232 doit être chargée 
avant l'exécution de SCOMM. 


Commande CI : Cette commande permet à un 
programme en BASIC de réaliser l'interface avec 
laroutine RS 232. Elle ne peut être utilisée qu'en 
mode BASIC. 


— Ligne 45449: Appel de 
SCOMM. 


la commande 


Syntaxe 


SM D 


on 


Figure 4.2 


———— 


SOUS-PROGRAMMES 


Vitesse | 


en bauds 
—(} | 
| de ral 
| MR! 
oo: ce 1a . ee 
| tampon | 


Nom du 


dispositif 


Controle Bits 


de parite de stop 


Etablissement 
Duplex 


de la liaison 


Nom du dispositif: Connecté au port RS 232. 
Vitesse en bauds : Vitesse de transmissions de données. Elle peut prendre les valeurs suivantes : 


Contrôle 
de parité 


59, 110, 300. 609, 1200, 1800, 2450, 4800, 9600. 


: Contrôle du nombre de bits 1 d'un élément de données. Le système peut faire 
un contrôle d'imparité (ODD) ou de parité (EVEN) ou ne pas en faire (NONE). 


Bits de Stop : Format du signal qui termine un élément de données. 


Bits de d 


Exemple : ® (1 bit de stop), 1 (1 1/2 bit de stop), 2 (2 bits de stop). 
onnées _: Quantité de données (en bits) formant un élément de données. Ce paramètre 
peut être 5, 6, 7 ou 8. 


Duplex : Ce paramètre spécifie si les caractères de données doivent avoir où non un 
écho à leur réception. En duplex (FULL) ils ont un écho. 
En semi-duplex (HALF) ils n'en n'ont pas. 

Établissement 

de liaison : Ce paramètre doit être ON ou OFF selon que le dispositif peut ou non prendre 
en charge le protocole d'établissement de la liaison. 

Dimension 


de mémoire 


tampon 


: Dimensions (en bits) de la mémoire tampon du récepteur. (A défaut 128). 


— Ligne 45959 : Appel de la commande CI 


Syntaxe 


Parametre —Q) 


Figure 4.3 


Numéro de port : Il spécifie le canal RS 232. Il doit avoir l'une des valeurs suivantes : 


Q : port principal RS 232 
1 : port de la première extension 
2 : port de la deuxième extension. 
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SOUS-PROGRAMMES 


Commande 
d'entrée/sortie 


Erreur 
Paramètre 


: Elle spécifie l'opération à exécuter et doit être représentée de l'une des façons 


suivantes : 


o : ouvrir le port r  : lire à partir du port 
c : fermer le port sr : lire l'état à partir du port 
w : écrire au port sw : écrire l'état au port. 


: Variable entière renvoyée pour indiquer l'erreur. 
: Dépend de la commande d'entrée/sortie. 


Quand ces instructions de commande sont établies l'écran affiche : 


— Ligne 45069 
in 

spi 

ip 9, O, 

16158, 11040 


SC 0, 402, 0, 275 
pu … pd...; pu 
— Ligne 50000 
— Ligne 50010 
— Ligne 50020 


Initialisation. 


: Initialisation de la fenêtre de tracé. 
: Choix de la plume de tracé. 


: Instruction de fonctionnement des points de cadrage en coordonnées du 


traceur. 


: Échelle de tracé à l'intérieur de la fenêtre en coordonnées utilisateur. 
: Traçage d'un cadre. 


: Remarque qui annonce le sous-programme « ci». 
: Appel de la commande «ci» pour l'écriture (voir pages précédentes). 
: Temporisation nécessaire au tracé pour éviter l'afflux de données dans la 


mémoire tampon. 


Affichage des paramètres à l'écran 
au moment de l'initialisation de la table 


Premier programme : Définition de la commande RS 232. 


Program name = RS£2E Kew, 1,3d 
Main entry = {2:XC7EA Init entry = 42:kCP0C 
Butes losded = 2548 Mode = Segmented < Suwsten 
Figure 4.2 
Deuxième programme : Définition de la commande SC. 
Program oame = Set Comm Res  1,3d 
Main entry = 42: Jnit entry = Hone 
Evtes luaded = 1542 Hude = Segnmented +“ Sustem 
Figure 4.3 
Troisième programme : Définition de la commande Cl. 
Frogram name = Communication Interface kew, d,23d 
Main entry = {2:40760 Init entry = Hone 
Bytes losded = 794 Mode = Segmented + System 
Figure 4.4 
Paramètres nécessaires au fonctionnement de la table traçante. 
2Com Carta: Port Hame = CÜH Faud Fate = gsm 
Parity = HÜRHE Stop Eits = 2? Cata Hits = o 
Guplex = HALF Handshske = ÛÜH Buffer Size = 14 


Figure 4.5 
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Tracé | 
du cartouche 
du format A3 


Application directe du tracé point par point à la table traçante. 
— Lignes 42240 à 42270: 


— Affectation du titre à la variable alphanumérique S$. 

— Calcul de la longueur du titre (en nombre de lettres). 

— Affectation de variables permettant, suivant la longueur du titre, inférieur ou supérieur à 14 
lettres, d'obtenir deux dimensions de lettres, ainsi que le centrage du titre dans la case où il est écrit. 


Exemple : 
VERIN 
Næ=S lettres C1 s1i.7, 1 
pe IN 
| l286 
|x=286-Nxcx5-261 
Figure 4.6 
Exemple : 


TARAUDAGE BORGNE 
N=16 lettres C=.7 81.49, .7 


ne: BORGNE 


E mjiiieu ou Ééjére * N=PIE (Cf Caréouc/re / 


sou . ou ÉTÉTE 9] TIDOOTÉ 8 À 
xX=286- ne 


| 
Figure 4.7 
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SOUS-PROGRAMMES 


Programme (T.T.) 


; à s0000 
PU 30000 


50000 


2589": GOSUB S0000 


S0000 


AHENTAREAUMONT M  GOELT 


GOSUE S0000 
30000 


20,29,220,27,5, 900,24, 6:puit: 


"UTUTITRE DU DESSIN "BR 

EN (RS) 

Noté THEN Ce,7 ELGE Ou 
RG TRSE CB 6 NX OS) EN 7: ei MRETRS CC, 7RO)LOTRE CO +" d 

i4 0; $:AOEUR 50000 

REED FETURN 


Figure 4.8 
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SOUS-PROGRAMMES 


Cartouche A4 
sur écran 
graphique 


Application directe du tracé point par point à l'écran graphique. 


Programme (E.G.) 
Figure 4.9 
LOQOC 'ERÉ 


FL 
LOUE 


desiefe Ecran Goom ces EEE RE EEE 


me Porc enmnnes CERTES 
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SOUS-PROGRAMMES 


EAUMONT "425,858 ,1 1) 
"ALT 


LA 4 0) 
10450 
LC & 0 
LOC 
LOT) 
0) CE 
104980 


BIO :LINE C855,0)-(245, 10 :LINE (245,1 
(265,10) LINE (CE 1Q)- (25,15) 

1 

D) CBS, 10-A/20 


M TO LD STI 
(DA S4+A, LD A/E 
a 

CLD, 10) (501,845), PB 


FETLKN 


10500 
10511) 
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SOUS-PROGRAMMES 


Nomenclature 
A3 sur table 
traçante 


Tracé du cartouche en coordonnées relatives par rapport à un point absolu origine où par rapport au 
point précédent. 


Organigramme ( DEBUT 


; INPUT A / 


frace des verticales 


Trace des horizontales 


Ecriture des constantes | 


7 


FOR: Inst TO _ 
| 


INPUT N, D$, M$, O$ 


Ecriture de N, D$, M$, O$ 
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SOUS-PROGRAMMES 


Programme (T.T.) 


Figure 4.11 


LOOND MENT 


50100 


CIRRRATR 


CIEM"4ME 


LL E 
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Exercice 
sur écran 
graphique 


SOUS-PROGRAMMES 


Tracé de segments, cercles, arcs de cercles ou ellipses permettant la construction de toutes formes ou 


figures. 


Figure 4.12 


[Def inition des taste 


l INMITIALISATION/ 


/ xc, xo, 8, YH 
L LE 


== 
TANT QUE 
L<>0 


e. 


GOSUB 37000 


Ne N 


2 eo du 
| 
__] 


| 


GOSUB 38000 


eve à 


5 : LE 2} 
| 


| [xs 7 


FIN 


SOUS-PROGRAMMES 


1. SOUS-PROGRAMMES 


a) Tracé de segments en continu : sous-programme 37000 
(E.G.) 


—— 
X 
Figure 4.13 
Organigramme 
( DEBUT 
/ Initialiser N ; PRET AR Re 
a — menés en CONÉINU 
Enitialiser X1, Y2 PA ÀXA, FA 
N FOR I 4 TO 
> 
A 
Initieliser xe, ve / AG JE OÙ A6 EE 
Tracer (X1, Y1) - (Xe, Ye) 
 — 
| X1i=Xe 
[_ vasve | 
| Les | ZeCcComoéeLr JU 
— TT NÔTE DE SEGRENÉS 
( FIN ) Fin de So04S5-070- 
ZT'IMRE 
Figure 4.14 
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SOUS-PROGRAMMES 
Déroulement 
ere Boucle eeme Boucle 3eme Boucle 


X1=XA X2=XB X1=XB X2=XC X1=XC X2=XD 


Y1=YA Y2=YB Y1=YB Ye=Yc Y1=YcC Ye2="YD 


B B B 


> 
> 


X1 devient x2 


Yi devient Y2 


( 
L X1 devient Xe | 


n devient Ye 


Figure 4.15 


Sous-programme 47000 (T.T.) 


47000 'LÉÉCERRRCREREE Trace de segments en continu sur TT Æ£ 
FÉES 


1 GYM GG TT 7 a 


47020 le trace de la piece indiquer 
47030 ‘ SUR 4 000 :WEND 
40407 Donner en DATA LL. N . X,Y 

42050 HEGE 


L'HSTRE CXILN HU MEOTRE CYAD AU FDM4HETKRSE (KE) 4, MESTRSE 
":EOSUR 50000 


JV ? 


ct «md gi utilisation de WAILE-VWEND 
4?lLé40 KR 


ETLIRN 


Figure 4.16 


SOUS-PROGRAMMES 


b) Tracé de cercles : sous-programme 38000 (E.G.) 


Figure 4.17 


Organigramme 


CD 


+ 


7 _ — _ 
/initisliser XC, YC, A, A1, a2/ 


FOR T=A1 TO A2 RL 


 . | 


[ceicui de X1, Y1, Xe, va| 
LL i 


| 


[Tracer (X1, Y1) = (X2, 2) 


he 


| 
| 
L_. 


fm LeECOMmDÉELST DU NOTE 


nr a Q'arCS GE CEfC/es 
( RETURN ) 


Déroulement : voir tracé de polygones 
140 


Figure 4.18 


SOUS-PROGRAMMES 


Sous-programme (E.G.) 


Figure 4.19 


c) Tracé d'arcs de cercles : sous-programme 39000 (E.G.) 


Figure 4.20 
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SOUS-PROGRAMMES 


Organigramme 


DEBUT 
nitialiser XC, YC, A, A1, A2 


FOR T=A1 TO A2 


Calcul de X1, Y1, Xe, Ye 


Tracer (X1, Y1) —- (X2, Ya) 


LZecompéeur gU ANÔÛTE 
g'arcs ge Cercies 


RETURN 


Figure 4.21 


Sous-programme 48000 (T.T.) 


Trace des corales et arcs de cprales gi TT LE 


48000 ‘4 
ÉLLE 


OL,0R, Del gi disgesntinu, 


HE, Léa AO ABRART, LA é AO Frepar 14 lé LE Fra 


s0000 


LIU IRETRS VID 4 POURETRS KT 


Figure 4.22 
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SOUS-PROGRAMMES 


Exemple 1 : 


Figure 4.23 


Exemple 2 : 


A2=A1+360 deg 


Figure 4.24 


Exemple 3 : 


X1=XC+AX1.22XC0S (T) 
P Y1=YC+AX.707XSIN (T) 
# X2=XC+R1 .22XC0S (T+P) 
Y2=YC+AX.707XSIN (T+P) 


Figure 4.25 
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SOUS-PROGRAMMES 


Programmation des exemples 1, 2, 3 sur (E.G.) 


Le) 
:A1=10: AT=80:Clel:CEe1: GOSUR 78000 


(0 
10 


res 


Fes AleTO : ASeI6 0: Ciel: QBel: GOEUR X6000 


À 
Reg0: KOe110: V0: 


Fes 'Aie0:AZez4 0: let. 2 :02e. ES: COCUR ZE0 


990 END 
de cerale 


‘Donner F,XC VO AL AB.F,C01 et C? (C1 et C2 ccefficient 
vmation du cerale en ellipse dans le £as d'un ce 
12 

1 4,14 TO: ALEAIXE, Lé LEO: ATEAXE, 14/1680: Trans forma 
Lion degrees vradians 

28040 FOR Tenl TO AZ STEF F 

38050 XAeXC04+RXC1KXCOS CT) 

ÿ VAR VCARRCEIXETN CT) 

36070 KBeX0+HRCIxXCOS CT+F) 

38080 VBxVO+RRCIXSTN CT+F) 

39090 LINE CKA,YA)-CXE. VE) 

38100 NEXT T 

ASLLO RETURN 


Figure 4.26 


Copie d'écran 


ST un 
Loiret a 
ri ES 
ST ——n, 
Pa e TT, 
m7 RTS ns y 
= ——. LS 
# " CA n 
P AT ., 
F Fu ; TT. * 
# # 7 ue et 
# # nn, 
“ d “ nu, L 
4 ja R 4 
ÿ Pl .. \ 
! ‘ * 
‘ | ae 1 
| Î Le [ 
| | v, | 
", 
*, 
“, 
LS 
1, 
| ! À | 
\ 1 \f 
, 1 {, l 
” % PA 
\ n FR 
‘ “, Ai 
. F û 
En 2 
CL RL" a L 
Le A F2 a 
Le DES = Fe 
ie Fu 
ES = 
= _ 
Ras. Ps 


Figure 4.27 
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SOUS-PROGRAMMES 


Programme TRACEG 


GESAPHIQUE LE f4 


d'origine 

) 

HD) 

en 41000 
QC 


xD, VE, YH:° 


GMENTS EN CONTINU 
de segments a entrer @n 52000 


E DE CERCLEES 
XO, YO FE: a entrer en 523000 


FOR Te) TO 4 ,X STEF F 
RkCQS CT) 


NA CXE) 
NE CY1) 
CNE (Yu) 


a entrer en 4000 
AXE, Lélé /LB0: Fe, LEeGON CAE-A1) 


READ xe, ve, ; 


,V1)- (Xe, Ve) 


RETURN 


SPORE ECALE 


et Nbre de segments en 
emites des segments Figure 4.28 


de cerale 145 


INDEX ALPHABÉTIQUE 


pages 
A 
Aa (arc absolu) 139 
Arc de cercle 102-114 
Assemblage par vis 104 à 114 
ATN 39 
AS (expression alphanumérique) 40 
B 
B (Box) 20-21 
Basic sa7 
BF (Box Full) 115 à 124 
Butée fixe 62 à 71 
C 
CALL 130 
Caractères (introduction) 3 
Caractères de contrôle 3-4 
Cartouche - format A3 128-129 
Cartouche - format A4 130-131 
Cercle (le) 26 à 30-36-138 
CIRCLE (ci-table traçante) 26 à 30 
Clavier (utilisation du) 2 
COLOR 6 
Commandes Basic 54 
Correction (des erreurs) 4 
CLS 16 
COS 39 
Cosse 46 à 48 
Cotation fonctionnelle 
des assemblages par vis 104 à 114 
CR 3 
CTRL 3-4 
CURSOR 6-39 
D 
DATA (READ) 25 
DEFFN 46-48-65 
Di (table traçante) 68 
DIM 100 
Disque il 
E 
Écran alphanumérique 15 
Ecran graphique 14 
EDIT 5 
Eléments graphiques 14 à 50 
Ellipse 30-31-139 
ELSE 42 
END 40 
F 
Figures polygonales inscrites 22 
Fonctions 6-7 
FOR... NEXT... 22 


Fourche de cycle 50 


G 
GOSUB... RETURN 
GOTO... 

H 
Hachures 


Hachures en continu 
Hachures par balayage 
- figures circulaires 
- figures polygonales 


IF... THEN...ELSE 
Imprimante graphique 
Initialisation table traçante 
INPUT 

Instructions Basic 
Intersection cylindre-plan 


L 


La (label) 

LEN (longueur d’une chaîne) 
LINE 

LIST 

LPRINT 


M 


Micro-ordinateur M 20 
Modes de fonctionnement 


N 


NEXT (FOR...) 
Nomenclature 


Organigramme 


PCOS 

pd (pen down) 

Pixel 

Point (le) 

Polygones inscrits 
Présentation du matériel 
PRINT 

PSET 


pu (pen up) 


23 
119 


37 à 48 
37 à 40 


46 à 48 
41 à 46 


42 
2 
125 à 127 


22 
132-133 


38 


READ (DATA) 
Rectangle 

REM (Remarque) 
RETURN (GOSUB) 
RUN 


SCALE 
Segment de droite 
SGN 


SPACE 
Sphère d’attelage 
STRS 


Table traçante 
Tableau 


15 
92 


Tableau de désignation des vis 92 à 101 
Tableau de correspondance des fonctions 8 à 13 


TAN 6 

Taraudage débouchant 81 à 86 

TEMP 89 

THEN (IF...) 42 

Traits 17-32 à 36 

Triangle 19 
U 

Unité de perçage 115 à 124 
V 

Vérin 72 à 80 

Vis (tracé de) 92 à 101 
W 

WEND (WHILE...) 34 


WHILE (WEND) 34 
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au dessin assisté par ordinateur (DAO), informatique et 

micro-ordinateurs pénètrent de plus en plus dans les 
établissements de formation technique. Cet ouvrage consacré à la 
maîtrise du graphisme, à l’aide de l'outil informatique, vient donc 
à son heure. 


Le lecteur débutant y trouvera les instructions nécessaires à 
l'exécution, contrôlée à tout moment sur écran ou table traçante, 
de traits élémentaires puis de figures géométriques plus 
complexes pour aboutir à des dessins de définition et des schémas 
dynamiques. 


Les professeurs concernés par le dessin de construction et la 
technologie en général puiseront dans les programmes et sous- 
programmes rassemblés dans Logigraph, la matière qui leur 
permettra d'élaborer leurs propres programmes de conception 
graphique. 
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